Inno Setup Pascal脚本代码集锦

最新推荐文章于 2018-06-26 11:11:59 发布

原创

最新推荐文章于 2018-06-26 11:11:59 发布 · 5.8k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#pascal #脚本 #integer #compiler #function #user

本文展示了如何使用Inno Setup的Pascal脚本进行安装过程中的交互操作，包括显示消息框、自定义页面事件处理、系统尺寸获取、安装完成提示以及外部程序执行。还涉及到设置自定义消息、进度条显示、安装取消处理和注册表项检查等功能。

[code]
procedure CurPageChanged(CurPageID: Integer);
begin
case CurPageId of
wpWelcome : MsgBox('wpWelcome ', mbInformation, MB_OK);
wpLicense : MsgBox('wpLicense', mbInformation, MB_OK);
wpPassword : MsgBox('wpPassword ', mbInformation, MB_OK);
wpInfoBefore : MsgBox('wpInfoBefore', mbInformation, MB_OK);
wpUserInfo : MsgBox('wpUserInfo ', mbInformation, MB_OK);
wpSelectDir : MsgBox('wpSelectDir', mbInformation, MB_OK);
wpSelectComponents : MsgBox('wpSelectComponents', mbInformation, MB_OK);
wpSelectProgramGroup: MsgBox('wpSelectProgramGroup', mbInformation, MB_OK);
wpSelectTasks : MsgBox('wpSelectTasks', mbInformation, MB_OK);
wpReady : MsgBox('wpReady', mbInformation, MB_OK);
wpPreparing : MsgBox('wpPreparing ', mbInformation, MB_OK);
wpInstalling : MsgBox('wpInstalling ', mbInformation, MB_OK);
wpInfoAfter : MsgBox('wpInfoAfter ', mbInformation, MB_OK);
wpFinished : MsgBox('wpFinished', mbInformation, MB_OK);
end;
end;

[Languages]
Name: de; MessagesFile: compiler:Languages/German.isl

[Files]
;;Programmdteien
Source:compiler:Examples/MyProg.exe; DestDir: {app}

[CustomMessages]
;; Meldung der MsgBox bei nicht ausgewählter Installation
de.NotRun =Die Istallation ist wichtig da sonst das installiter Programm %nnicht ordnungsgemäß funktioniert.%n%n Wollen Sie die externe Installation Ausführen?

[Run]
Filename: {app}/MyProg.exe;Description: Prog starten; Flags: postinstall unchecked

[code]
function NextButtonClick(CurPageID: Inte