正式会员享受无限制浏览网站功能和高速网盘下载,赶快加入本站吧!
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- ; 脚本用 Inno Setup 脚本向导 生成。
- ; 查阅文档获取创建 INNO SETUP 脚本文件的详细资料!
- #define MyAppName "FoxitReader"
- #define MyAppVersion "5.3.1.606"
- #define MyAppPublisher "536288.com"
- #define MyAppURL "http://www.536288.com/"
- #define MyAppExeName "Foxit Reader.exe"
- [Setup]
- ; 注意: AppId 的值是唯一识别这个程序的标志。
- ; 不要在其他程序中使用相同的 AppId 值。
- ; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
- AppId={{AC4CB97C-F7C7-4CDA-9EB4-BD5EE0688D70}
- AppName={#MyAppName}
- AppVersion={#MyAppVersion}
- ;AppVerName={#MyAppName} {#MyAppVersion}
- AppPublisher={#MyAppPublisher}
- AppPublisherURL={#MyAppURL}
- AppSupportURL={#MyAppURL}
- AppUpdatesURL={#MyAppURL}
- DefaultDirName={pf}\{#MyAppName}
- DisableDirPage=yes
- DefaultGroupName={#MyAppName}
- AllowNoIcons=yes
- OutputBaseFilename=Foxit Reader
- SetupIconFile=E:\安装包制作\ICO\appicon.ico
- Compression=lzma
- SolidCompression=yes
- WizardImageFile=E:\安装包制作\soft\SESetup\embedded\WizModernImage.bmp
- WizardSmallImageFile=E:\安装包制作\soft\SESetup\embedded\WizModernSmallImage.bmp
- [Languages]
- Name: "default"; MessagesFile: "compiler:Default.isl"
-
- [Files]
- Source: "E:\安装包制作\soft\FoxitReader\Foxit Reader.exe"; DestDir: "{app}"; Flags: ignoreversion
- Source: "E:\安装包制作\soft\FoxitReader\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
- ; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
- [Tasks]
- Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
- [Icons]
- Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
- Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"
- Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
- Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
- [Run]
- Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
- [UninstallDelete]
- Type: filesandordirs; Name: {app}
- [UninstallRun]
- Filename: http://www.baidu.com ; Flags: shellexec runmaximized
- [Messages]
- ConfirmUninstall=您真的想要从电脑中卸载该软件吗?%n%n按 [是] 则完全删除 %1 以及所有组件。 %n按 [否] 则让软件继续留在您的电脑上。%n%n提示: 卸载时将删除安装目录中的所有内容,请备份您的数据!
- [Code]
- procedure CurStepChanged(CurStep: TSetupStep);
- var
- ErrorCode: Integer;
- begin
- if CurStep=ssDone then ShellExec('open', 'http://www.baidu.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
- end;
- procedure URLLabelOnClick(Sender: TObject);
- var
- ErrorCode: Integer;
- begin
- ShellExec('open', 'http://www.baidu.com ', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
- end;
- procedure AboutButtonOnClick(Sender: TObject);
- begin
- MsgBox('xxxx'#13#10'QQ:xxxx'#13#10'xxxx',mbInformation, MB_OK);
- end;
- var
- AboutButton, CancelButton: TButton;
- URLLabel: TNewStaticText;
- procedure InitializeWizard();
- begin
- { Create the pages }
- WizardForm.PAGENAMELABEL.Font.Color:= clred;
- WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;
- WizardForm.WELCOMELABEL1.Font.Color:= clGreen;
- WizardForm.WELCOMELABEL2.Font.Color:= clblack;
- CancelButton := WizardForm.CancelButton;
- AboutButton := TButton.Create(WizardForm);
- AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
- AboutButton.Top := CancelButton.Top;
- AboutButton.Width := CancelButton.Width;
- AboutButton.Height := CancelButton.Height;
- AboutButton.Caption := '关于(&A)';
- AboutButton.OnClick := @AboutButtonOnClick;
- AboutButton.Parent := WizardForm;
- URLLabel := TNewStaticText.Create(WizardForm);
- URLLabel.Caption := '点击支持我';
- URLLabel.Cursor := crHand;
- URLLabel.OnClick := @URLLabelOnClick;
- URLLabel.Parent := WizardForm;
- { Alter Font *after* setting Parent so the correct defaults are inherited first }
- URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
- URLLabel.Font.Color := clBlue;
- URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
- URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
- end;
复制代码
|