inno setup检查是否已经安装

最新推荐文章于 2024-06-11 18:07:16 发布

weixin_34138255

最新推荐文章于 2024-06-11 18:07:16 发布

阅读量1.4k

点赞数

文章标签：数据库 matlab java

[Registry]
Root: HKLM; Subkey: "Software\MCS"; ValueType: string; ValueName: "MCSVersion"; ValueData: "1.0.6"; Flags: uninsdeletevalue

[Code]
function GetMCSVersion(): String;
var MCSVersion: String;
begin
MCSVersion :='';
RegQueryStringValue(HKLM, 'Software\MCS', 'MCSVersion', MCSVersion);
Result := MCSVersion;
end;

function InitializeSetup(): Boolean;
var MCSVersion: String;
begin
MCSVersion := GetMCSVersion();
result := true;
if length(MCSVersion) > 0 then begin
//如果发现程序已经安装过了
MsgBox ('本程序已经安装，请卸载后再安装本程序. 安装程序将关闭.', mbError, MB_OK);
result := false;
end;
end;