Inno Setup的常用脚本.docVIP

Inno Setup的常用脚本 Inno Setup的常用脚本2009-12-31 12:14安装不同的目录：[Files] Source: 我的程序\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs Source: 我的程序\*; DestDir: {cf}\我的程序; Flags: ignoreversion recursesubdirs createallsubdirs开始菜单快捷方式： [Icons] Name: {group}\我的程序名称; Filename: {app}\我的程序.exe ;WorkingDir: {app} 桌面快捷方式： [Icons] Name: {userdesktop}\我的程序名称; Filename: {app}\我的程序.exe; WorkingDir: {app} 开始菜单卸载快捷方式： [Icons] Name: {group}\{cm:UninstallProgram,我的程序}; Filename: {uninstallexe} 安装完后选择运行： [Run] Filename: {app}\我的程序.exe; Description: {cm:LaunchProgram,我的程序名称}; Flags: nowait postinstall skipifsilent 安装完后自动运行： [Run] Filename: {app}\我的程序.exe; 在界面左下角加文字： [Messages] BeveledLabel=你的网站名称 选择组件安装：（组件1的Flags: fixed为必须安装） [Types] Name: full; Description: 选择安装; Flags: iscustom [Components] Name: 组件1文件夹; Description: 组件1名称; Types: full; Flags: fixed Name: 组件2文件夹; Description: 组件2名称; Types: full Name: 组件3文件夹; Description: 组件3名称; Types: full [Files] Source: E:\组件1文件夹\我的程序.exe; DestDir: {app}; Flags: ignoreversion Source: E:\组件1文件夹\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Components: 组件1文件夹 Source: E:\组件2文件夹\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Components: 组件2文件夹 Source: E:\组件3文件夹\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs; Components: 组件3文件夹 添加关于按钮： [Code] {注意:关于按钮单击后执行的过程,一定要写在InitializeWizard()过程之前} procedure ButtonAboutOnClick(Sender: TObject); begin MsgBox(关于对话框。+#13#10+另起一行, mbInformation, MB_OK);//显示对话框 end; {初始化安装向导时会触发的过程,这个过程的名字是INNO内部定义的，不能修改} procedure InitializeWizard(); begin with TButton.Create(WizardForm) do//在WizardForm上面创建一个按钮 begin Left := 32;//按钮距WizardForm左边的距离 Top := 302;//按钮距WizardForm上边的距离 Width := WizardForm.CancelButton.Width;//按钮的宽度，这里定义跟取消按钮等宽 Height := WizardForm.CancelButton.Height;//按钮的高度 Caption := 关于(A)...;//按钮上的文字 Font.Name:=宋体;//按钮文字的字体 Font.Size:=9;//9号字体 OnClick := @ButtonAboutOnClick;//单击按钮触发的过程，就