Inno Setup 如何把安装目录自动指向剩余空间最大的磁盘

Share

1. [Setup]
   
2. AppName=My Program
   
3. AppVerName=My Program version 1.5
   
4. DefaultDirName={code:GetMaxDrive}\My Company\My Program
   
5. DefaultGroupName=My Program
   
6. 
   
7. [Files]
   
8. Source: "MyProg.exe"; DestDir: "{app}"
   
9. Source: "Readme.txt"; DestDir: "{app}"
   
10. 
    
11. [CODE]
    
12. var
    
13.   maxSpace: Cardinal;
    
14. function GetDriveType(lpDisk: String): integer;
    
15. external 'GetDriveTypeA@kernel32.dll stdcall';
    
16. 
    
17. function GetMaxDrive(Param:string): string;
    
18. var j: integer;
    
19.     drv: string;
    
20.     FreeSpace,TotalSpace: Cardinal;
    
21. begin
    
22. Result:= '';
    
23. maxSpace:= 0;
    
24. For j:= 3 to 26 do               //不管三七二十一从 C: 盘一直检查到 Z: 盘
    
25. begin
    
26. drv:= chr(j+64)+':\';
    
27. if GetDriveType(drv)=3 then      //只处理硬盘（Type = 3）
    
28.   begin
    
29.     GetSpaceOnDisk(drv, True, FreeSpace, TotalSpace);
    
30.     if FreeSpace > maxSpace then
    
31.       begin
    
32.       Result:=chr(j+64)+':';
    
33.       maxSpace:= FreeSpace;
    
34.       end;
    
35.   end;
    
36. end;
    
37. end;
    
38. 
    
39. procedure CurPageChanged(CurPageID: Integer);
    
40. begin
    
41.   if CurPageID = wpSelectDir then
    
42.     begin
    
43.       if maxSpace < 1000000000 then     // 检查是否有一定的空间
    
44.         WizardForm.NextButton.Enabled:= false;
    
45.     end;
    
46. end;

复制代码