Inno Setup XP SP2补丁包

Share

1. [Setup]
   
2. AppName=XP
   
3. AppVerName=XP
   
4. AppPublisher=XP
   
5. AppPublisherURL=http://www.imseb.cn/
   
6. AppSupportURL=http://www.imseb.cn/
   
7. AppUpdatesURL=http://www.imseb.cn/
   
8. CreateAppDir=false
   
9. LicenseFile=D:\xp\xp.txt
   
10. OutputDir=D:\
    
11. OutputBaseFilename=setup
    
12. Compression=lzma
    
13. SolidCompression=true
    
14. VersionInfoVersion=1.0.0.0
    
15. VersionInfoTextVersion=1.0.0.0
    
16. Uninstallable=false
    
17. 
    
18. [Languages]
    
19. Name: chinesesimp; MessagesFile: compiler:Default.isl
    
20. 
    
21. [Files]
    
22. Source: D:\xp\WindowsXP-KB935708-x86-CHS.exe; DestDir: {tmp}; Flags: ignoreversion; Components: xp
    
23. Source: D:\xp\WindowsXP-KB933360-x86-CHS.exe; DestDir: {tmp}; Flags: ignoreversion; Components: nt
    
24. 
    
25. 
    
26. 
    
27. [Components]
    
28. Name: xp; Description: xp; Flags: checkablealone; Types: full
    
29. Name: nt; Description: nt; Flags: checkablealone; Types: custom compact
    
30. [Run]
    
31. Filename: {tmp}\WindowsXP-KB935708-x86-CHS.exe; Parameters: /passive /quiet /norestart /nobackup; Flags: runminimized; Components: xp
    
32. Filename: {tmp}\WindowsXP-KB933360-x86-CHS.exe; Parameters: /passive /quiet /norestart /nobackup; Flags: runminimized; Components: nt
    
33. [Code]
    
34. procedure AboutButtonOnClick(Sender: TObject);
    
35. begin
    
36. MsgBox('欢迎使用aaplayboy制作的程序，该程序来自霏凡论坛。', mbInformation, mb_Ok);
    
37. end;
    
38. 
    
39. procedure URLLabelOnClick(Sender: TObject);
    
40. var
    
41.   ErrorCode: Integer;
    
42. begin
    
43.   ShellExec('open', 'http://bbs.crsky.com', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
    
44. end;
    
45. 
    
46. procedure InitializeWizard();
    
47. var
    
48. 
    
49. AboutButton, CancelButton: TButton;
    
50. URLLabel: TNewStaticText;
    
51. BackgroundBitmapImage: TBitmapImage;
    
52. BackgroundBitmapText: TNewStaticText;
    
53. begin
    
54. CancelButton := WizardForm.CancelButton;
    
55. 
    
56. AboutButton := TButton.Create(WizardForm);
    
57. AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width;
    
58. AboutButton.Top := CancelButton.Top;
    
59. AboutButton.Width := CancelButton.Width;
    
60. AboutButton.Height := CancelButton.Height;
    
61. AboutButton.Caption := '关于(&A)';
    
62. AboutButton.OnClick := @AboutButtonOnClick;
    
63. AboutButton.Parent := WizardForm;
    
64. 
    
65. URLLabel := TNewStaticText.Create(WizardForm);
    
66. URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;
    
67. URLLabel.Left := AboutButton.Left + AboutButton.Width + 20;
    
68. URLLabel.Caption := '霏凡论坛';
    
69. URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderLine];
    
70. URLLabel.Font.Color := clBlue;
    
71. URLLabel.Cursor := crHand;
    
72. URLLabel.OnClick := @URLLabelOnClick;
    
73. URLLabel.Parent := WizardForm;
    
74. 
    
75. BackgroundBitmapImage := TBitmapImage.Create(MainForm);
    
76. BackgroundBitmapImage.AutoSize := True;
    
77. BackgroundBitmapImage.Bitmap := WizardForm.WizardBitmapImage.Bitmap;
    
78. BackgroundBitmapImage.Left := 50;
    
79. BackgroundBitmapImage.Top := 100;
    
80. BackgroundBitmapImage.Parent := MainForm;
    
81. 
    
82. BackgroundBitmapText := TNewStaticText.Create(MainForm);
    
83. BackgroundBitmapText.Caption := 'TBitmapImage';
    
84. BackgroundBitmapText.Left := BackGroundBitmapImage.Left;
    
85. BackgroundBitmapText.Top := BackGroundBitmapImage.Top + BackGroundBitmapImage.Height + 8;
    
86. BackgroundBitmapText.Parent := MainForm;
    
87. //许可协议
    
88. WizardForm.LicenseAcceptedRadio.Checked := True;
    
89. //注册表判断组件
    
90. if RegValueExists(HKEY_CURRENT_USER, 'Software\liatro', 'ScreenCY') then
    
91.   begin
    
92.   WizardForm.ComponentsList.ITEMENABLED[1]:= false; //组件（第二个）不可选
    
93.   WizardForm.ComponentsList.CHECKED[1]:= false;   //默认不选中组件
    
94.   end
    
95. else
    
96.   begin
    
97.   WizardForm.ComponentsList.ITEMENABLED[1]:= true; //组件可选
    
98.   WizardForm.ComponentsList.CHECKED[1]:= true; //默认选中组件
    
99.   end;
    
100. end;

复制代码