开元Inno Setup脚本 之 [Code]段

此代码功能包括:去掉欢迎页面,退出安装向导时不提示,去掉菜单内的“关于按钮”,不重复安装(提示卸载旧版程序),关于不重复安装我之前写过一篇文章,在我的博客内也能找到。

[Code]
//去掉欢迎页面(代码开始)
function ShouldSkipPage(PageID: Integer): Boolean;
begin
if PageID=wpWelcome then
result := true;
end;
//去掉欢迎页面(代码结束)
//退出安装向导时不提示(代码开始)
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
Confirm := False;
end;
//退出安装向导时不提示(代码结束)
//去掉菜单内的“关于按钮”(代码开始)
procedure InitializeWizard();
begin
WizardForm.BorderIcons := [biHelp, biSystemMenu, biMinimize]; //与BorderStyle合用,会导致许可协议等页面的RTF文本失效
end;
//去掉菜单内的“关于按钮”(代码结束)
//不重复安装(代码开始)
function InitializeSetup():boolean;
var
MykeynotExist:boolean;
ResultCode: Integer;
uicmd: String;
begin
MykeynotExist:= true;
if RegQueryStringValue(HKEY_LOCAL_MACHINE, ‘SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall{此处为APPID}_is1’, ‘UninstallString’, uicmd) then
begin
MsgBox(‘检测到程序已安装,请卸载后在运行此安装向导!’, mbInformation, MB_OK );
MyKeynotExist:= false;
Exec(RemoveQuotes(uicmd), ”, ”, SW_SHOW, ewWaitUntilTerminated, ResultCode);
end;
Result:= MykeynotExist
end;
//不重复安装(代码结束)

留下评论

电子邮件地址不会被公开。 必填项已用*标注