福星阅读器脚本

admin

1. ; 脚本用 Inno Setup 脚本向导 生成。
   
2. ; 查阅文档获取创建 INNO SETUP 脚本文件的详细资料！
   
3. 
   
4. #define MyAppName "FoxitReader"
   
5. #define MyAppVersion "5.3.1.606"
   
6. #define MyAppPublisher "536288.com"
   
7. #define MyAppURL "http://www.536288.com/"
   
8. #define MyAppExeName "Foxit Reader.exe"
   
9. 
   
10. [Setup]
    
11. ; 注意: AppId 的值是唯一识别这个程序的标志。
    
12. ; 不要在其他程序中使用相同的 AppId 值。
    
13. ; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
    
14. AppId={{AC4CB97C-F7C7-4CDA-9EB4-BD5EE0688D70}
    
15. AppName={#MyAppName}
    
16. AppVersion={#MyAppVersion}
    
17. ;AppVerName={#MyAppName} {#MyAppVersion}
    
18. AppPublisher={#MyAppPublisher}
    
19. AppPublisherURL={#MyAppURL}
    
20. AppSupportURL={#MyAppURL}
    
21. AppUpdatesURL={#MyAppURL}
    
22. DefaultDirName={pf}\{#MyAppName}
    
23. DisableDirPage=yes
    
24. DefaultGroupName={#MyAppName}
    
25. AllowNoIcons=yes
    
26. OutputBaseFilename=Foxit Reader
    
27. SetupIconFile=E:\安装包制作\ICO\appicon.ico
    
28. Compression=lzma
    
29. SolidCompression=yes
    
30. WizardImageFile=E:\安装包制作\soft\SESetup\embedded\WizModernImage.bmp
    
31. WizardSmallImageFile=E:\安装包制作\soft\SESetup\embedded\WizModernSmallImage.bmp
    
32. 
    
33. [Languages]
    
34. Name: "default"; MessagesFile: "compiler:Default.isl"
    
35.   
    
36. [Files]
    
37. Source: "E:\安装包制作\soft\FoxitReader\Foxit Reader.exe"; DestDir: "{app}"; Flags: ignoreversion
    
38. Source: "E:\安装包制作\soft\FoxitReader\*"; DestDir: "{app}"; Flags: ignoreversion recursesubdirs createallsubdirs
    
39. ; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
    
40. 
    
41. [Tasks]
    
42. Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
    
43. 
    
44. [Icons]
    
45. Name: "{group}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"
    
46. Name: "{group}\{cm:ProgramOnTheWeb,{#MyAppName}}"; Filename: "{#MyAppURL}"
    
47. Name: "{group}\{cm:UninstallProgram,{#MyAppName}}"; Filename: "{uninstallexe}"
    
48. Name: "{commondesktop}\{#MyAppName}"; Filename: "{app}\{#MyAppExeName}"; Tasks: desktopicon
    
49. 
    
50. [Run]
    
51. Filename: "{app}\{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
    
52. 
    
53. [UninstallDelete]
    
54. Type: filesandordirs; Name: {app}
    
55. 
    
56. [UninstallRun]
    
57. Filename: http://www.baidu.com ; Flags: shellexec runmaximized
    
58. 
    
59. [Messages]
    
60. ConfirmUninstall=您真的想要从电脑中卸载该软件吗？%n%n按 [是] 则完全删除 %1 以及所有组件。 %n按 [否] 则让软件继续留在您的电脑上。%n%n提示: 卸载时将删除安装目录中的所有内容，请备份您的数据！
    
61. 
    
62. [Code]
    
63. procedure CurStepChanged(CurStep: TSetupStep);
    
64. var
    
65. ErrorCode: Integer;
    
66. begin
    
67. if CurStep=ssDone then ShellExec('open', 'http://www.baidu.com/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
    
68. end;
    
69. 
    
70. procedure URLLabelOnClick(Sender: TObject);
    
71. var
    
72. ErrorCode: Integer;
    
73. begin
    
74. ShellExec('open', 'http://www.baidu.com ', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
    
75. end;
    
76. 
    
77. procedure AboutButtonOnClick(Sender: TObject);
    
78. begin
    
79. MsgBox('xxxx'#13#10'QQ:xxxx'#13#10'xxxx',mbInformation, MB_OK);
    
80. end;
    
81. 
    
82. var
    
83. AboutButton, CancelButton: TButton;
    
84. URLLabel: TNewStaticText;
    
85. 
    
86. procedure InitializeWizard();
    
87. begin
    
88. { Create the pages }
    
89. WizardForm.PAGENAMELABEL.Font.Color:= clred;
    
90. WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;
    
91. WizardForm.WELCOMELABEL1.Font.Color:= clGreen;
    
92. WizardForm.WELCOMELABEL2.Font.Color:= clblack;
    
93. 
    
94. CancelButton := WizardForm.CancelButton;
    
95. AboutButton := TButton.Create(WizardForm);
    
96. AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
    
97. AboutButton.Top := CancelButton.Top;
    
98. AboutButton.Width := CancelButton.Width;
    
99. AboutButton.Height := CancelButton.Height;
    
100. AboutButton.Caption := '关于(&A)';
     
101. AboutButton.OnClick := @AboutButtonOnClick;
     
102. AboutButton.Parent := WizardForm;
     
103. 
     
104. URLLabel := TNewStaticText.Create(WizardForm);
     
105. URLLabel.Caption := '点击支持我';
     
106. URLLabel.Cursor := crHand;
     
107. URLLabel.OnClick := @URLLabelOnClick;
     
108. URLLabel.Parent := WizardForm;
     
109. { Alter Font *after* setting Parent so the correct defaults are inherited first }
     
110. URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];
     
111. URLLabel.Font.Color := clBlue;
     
112. URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
     
113. URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
     
114. end;

复制代码