function InitializeSetup(): Boolean;//安装前事件
var
ResultCode: Integer;
begin
//检查.net2.0是否安装
if RegKeyExists(HKLM, 'SOFTWARE/Microsoft/.NETFramework/policy/v2.0') then
begin
//检查J#2.0环境是否安装
if RegKeyExists(HKLM,'SOFTWARE/Classes/CLSID/{DC4709B6-4F1B-427E-BCBB-F48CA13DB8F5}/InprocServer32/2.0.0.0') then
begin
Result := true;
end
else
begin
ExtractTemporaryFile('J#2.0.exe');
//MsgBox('没有安装J#2.0环境,Delphi2007运行将出错,请安装后再运行本安装程序!',mbInformation,MB_OK);
Exec(ExpandConstant('{tmp}/J#2.0.exe'), '', '', SW_SHOW,ewWaitUntilTerminated, ResultCode);
Result:=true;
end;
end
else
begin
MsgBox('Delphi2007需要.Net Framework2.0环境,请先安装后再运行本程序!',mbInformation,MB_OK);
Result := false;
end;
end;
Inno Setup安装前检测程序是否安装
最新推荐文章于 2024-07-18 19:15:02 发布