安装空间不足屏蔽下一步按钮

admin

1. ; 脚本用 Inno Setup 脚本向导 生成。
   
2. ; 查阅文档获取创建 INNO SETUP 脚本文件的详细资料！
   
3. 
   
4. #define MyAppName "我的程序"
   
5. #define MyAppVersion "1.5"
   
6. #define MyAppPublisher "我的公司"
   
7. #define MyAppURL "http://www.example.com/"
   
8. #define MyAppExeName "MyProg.exe"
   
9. 
   
10. #define NeedSize "60000"
    
11. #define AfterSize "5871"
    
12. #define NeedMem "512"
    
13. #define Color "000000"
    
14. 
    
15. 
    
16. 
    
17. [Setup]
    
18. ; 注意: AppId 的值是唯一识别这个程序的标志。
    
19. ; 不要在其他程序中使用相同的 AppId 值。
    
20. ; (在编译器中点击菜单“工具 -> 产生 GUID”可以产生一个新的 GUID)
    
21. AppId={{86EB5FFA-D719-4B91-AD87-25AAFCEE7B3F}
    
22. AppName={#MyAppName}
    
23. AppVersion={#MyAppVersion}
    
24. ;AppVerName={#MyAppName} {#MyAppVersion}
    
25. AppPublisher={#MyAppPublisher}
    
26. AppPublisherURL={#MyAppURL}
    
27. AppSupportURL={#MyAppURL}
    
28. AppUpdatesURL={#MyAppURL}
    
29. DefaultDirName={pf}{#MyAppName}
    
30. DefaultGroupName={#MyAppName}
    
31. OutputBaseFilename=setup
    
32. Compression=lzma
    
33. SolidCompression=yes
    
34. 
    
35. [Languages]
    
36. Name: "default"; MessagesFile: "compiler:Default.isl"
    
37. 
    
38. [Tasks]
    
39. Name: "desktopicon"; Description: "{cm:CreateDesktopIcon}"; GroupDescription: "{cm:AdditionalIcons}"; Flags: unchecked
    
40. 
    
41. [Files]
    
42. Source: "D:Program FilesInno Setup 5ExamplesMyProg.exe"; DestDir: "{app}"; Flags: ignoreversion
    
43. ; 注意: 不要在任何共享的系统文件使用 "Flags: ignoreversion"
    
44. 
    
45. [Icons]
    
46. Name: "{group}{#MyAppName}"; Filename: "{app}{#MyAppExeName}"
    
47. Name: "{commondesktop}{#MyAppName}"; Filename: "{app}{#MyAppExeName}"; Tasks: desktopicon
    
48. 
    
49. [Run]
    
50. Filename: "{app}{#MyAppExeName}"; Description: "{cm:LaunchProgram,{#StringChange(MyAppName, '&', '&&')}}"; Flags: nowait postinstall skipifsilent
    
51. 
    
52. [CustomMessages]
    
53. FreeSpace=剩余空间
    
54. NeedSpace=安装所需
    
55. AfterInstallSpace=当前分区可用空间
    
56. TotalSpace=当前分区总容量
    
57. 
    
58. 
    
59. [code]
    
60. var
    
61. NeedSpaceLabel, FreeSpaceLabel,TotalSpaceLabel,DirEditLabel: TLabel;
    
62.   FreeMB, TotalMB: Cardinal;
    
63.   SizeInt, AfterInt: Longint;
    
64. 
    
65. //procedure DirChange(Sender: TObject);
    
66. //var
    
67. // CurrentDisk: String;
    
68. //begin
    
69. //CurrentDisk:=ExtractFileDrive(WizardForm.DirEdit.Text);
    
70. //  DirEditLabel.Caption:=MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
    
71. //end;
    
72. 
    
73. Function NumToStr(Float: Extended): String;
    
74. Begin
    
75.   Result:= Format('%.2n', [Float]); StringChange(Result, ',', ',');
    
76.   while ((Result[Length(Result)] = '0') or (Result[Length(Result)] = ',')) and (Pos(',', Result) > 0) do
    
77.   SetLength(Result, Length(Result)-1);
    
78. End;
    
79. 
    
80. function CompareNum(FirstNum, SecondNum: Integer): Boolean;
    
81. begin
    
82. if FirstNum < SecondNum then Result:= False else Result:= True;
    
83. end;
    
84. 
    
85. Function MbOrTb(Byte: Extended): String;
    
86. begin
    
87. if Byte < 1024 then Result:= NumToStr(Byte) + 'TB' else
    
88.   if Byte/1024 < 1024 then Result:= NumToStr(round(Byte/1024*100)/100) + ' GB' else
    
89.      Result:= NumToStr(round((Byte/(1024*1024))*100)/100) + ' MB'
    
90. end;
    
91. 
    
92. procedure DirEditOnChange(Sender: TObject);
    
93. var Drive: String;
    
94. begin
    
95. // DirEditLabel.Caption:=MinimizePathName(WizardForm.DirEdit.Text, DirEditLabel.Font, DirEditLabel.Width);
    
96.   Drive:= ExtractFileDrive(WizardForm.DirEdit.Text);
    
97.   GetSpaceOnDisk(Drive, True, FreeMB, TotalMB);
    
98.     TotalSpaceLabel.Caption:= ExpandConstant('{cm:TotalSpace} ')+MbOrTb(TotalMB);
    
99.     FreeSpaceLabel.Caption:= ExpandConstant('{cm:FreeSpace} ') + MbOrTB(FreeMb) + ' (' + IntToStr((FreeMb*100) div TotalMB) + ' %)';
    
100.     NeedSpaceLabel.Caption := ExpandConstant('{cm:NeedSpace} ') + MbOrTb(SizeInt)
     
101.     if (FreeMB>{#NeedSize}) then FreeSpaceLabel.Font.Color:=${#Color} else FreeSpaceLabel.Font.Color:=$0000FF;
     
102. //if WizardForm.CurPageID = wpSelectDir then begin
     
103. //if  (FreeMB>{#NeedSize}) then begin
     
104.   WizardForm.NextButton.Enabled:= (FreeMB>{#NeedSize});
     
105.   //BtnSetEnabled(hNextBtn, True);
     
106. //  WizardForm.NextButton.Enabled:=True;
     
107. //end else begin
     
108. //  WizardForm.NextButton.Enabled:= (FreeMB>{#NeedSize});
     
109.   //BtnSetEnabled(hNextBtn, False);
     
110. //    WizardForm.NextButton.Enabled:=False;
     
111. //end;
     
112. //end;
     
113. end;
     
114. 
     
115. procedure CurPageChanged(CurPageID: Integer);
     
116. begin
     
117.   if WizardForm.CurPageID = wpSelectDir then
     
118.     WizardForm.NextButton.Enabled:= (FreeMB>{#NeedSize});
     
119. end;
     
120. 
     
121. 
     
122. procedure NeedSpace;
     
123. begin
     
124. WizardForm.DiskSpaceLabel.Hide;
     
125. AfterInt:= {#AfterSize}
     
126. SizeInt:= {#NeedSize}
     
127. 
     
128. TotalSpaceLabel:= TLabel.Create(WizardForm);
     
129. TotalSpaceLabel.Transparent:=true;
     
130. TotalSpaceLabel.Font.Name:='Arial';
     
131. TotalSpaceLabel.Font.Size:= 10;
     
132. TotalSpaceLabel.Font.Color:=${#Color};
     
133. //TotalSpaceLabel.SetBounds(ScaleX(253),ScaleY(260), ScaleX(209), ScaleY(13));
     
134. TotalSpaceLabel.SetBounds(ScaleX(0),ScaleY(159), ScaleX(209), ScaleY(13));
     
135. TotalSpaceLabel.Parent:= WizardForm.SelectDirPage;
     
136. //TotalSpaceLabel.Parent:= WizardForm;
     
137. TotalSpaceLabel.Font.Style := [fsBold];
     
138. 
     
139. FreeSpaceLabel := TLabel.Create(WizardForm);
     
140. //FreeSpaceLabel.SetBounds(ScaleX(253), ScaleY(276), ScaleX(209), ScaleY(13))
     
141. FreeSpaceLabel.SetBounds(ScaleX(0), ScaleY(179), ScaleX(209), ScaleY(13))
     
142. //FreeSpaceLabel.Parent := WizardForm;
     
143. FreeSpaceLabel.Parent:= WizardForm.SelectDirPage;
     
144. FreeSpaceLabel.Font.Name:='Arial';
     
145. FreeSpaceLabel.Font.Size:= 10;
     
146. FreeSpaceLabel.Font.Color:=${#Color};
     
147. FreeSpaceLabel.Transparent:=true;
     
148. FreeSpaceLabel.Font.Style := [fsBold];
     
149. 
     
150. NeedSpaceLabel := TLabel.Create(WizardForm);
     
151. //NeedSpaceLabel.SetBounds(ScaleX(253), ScaleY(292), ScaleX(209), ScaleY(13))
     
152. NeedSpaceLabel.SetBounds(ScaleX(0), ScaleY(199), ScaleX(209), ScaleY(13))
     
153. //NeedSpaceLabel.Parent := WizardForm;
     
154. NeedSpaceLabel.Parent:= WizardForm.SelectDirPage;
     
155. NeedSpaceLabel.Font.Name:='Arial';
     
156. NeedSpaceLabel.Font.Size:= 10;
     
157. NeedSpaceLabel.Font.Color:=${#Color};
     
158. NeedSpaceLabel.Transparent:=true;
     
159. NeedSpaceLabel.Font.Style:= [fsBold];
     
160. 
     
161. WizardForm.DirEdit.OnChange:= @DirEditOnChange;
     
162. WizardForm.DirEdit.Text:= WizardForm.DirEdit.Text + #0;
     
163. end;
     
164. 
     
165. procedure InitializeWizard();
     
166. begin
     
167.     NeedSpace;
     
168. end;

复制代码