Inno Setup 可选磁盘安装路劲

admin

1. [Code]
   
2. function GetDriveType(lpDisk: String): integer;
   
3. external 'GetDriveTypeW@kernel32.dll stdcall';
   
4. procedure GetAllHDDrives(var aos: TArrayOfString);
   
5. var i, n: integer;
   
6.     drv: string;
   
7. begin
   
8.   SetArrayLength(aos, 0);
   
9.   For i:= 3 to 26 do                   //从 C: 盘一直检查到 Z: 盘
   
10.     begin
    
11.       drv:= chr(i+64)+':\';
    
12.       if GetDriveType(drv) = 3 then      //只处理硬盘（Type = 3）
    
13.         begin
    
14.           n := GetArrayLength(aos);
    
15.           SetArrayLength(aos, n+1);
    
16.           aos[n] := drv;
    
17.         end;
    
18.     end;
    
19. end;
    
20. var
    
21.   NewComboBox1: TNewComboBox;
    
22. procedure InitializeWizard();
    
23. var i: Integer;
    
24.     ListAllDrv: TArrayOfString;
    
25. begin
    
26.   GetAllHDDrives(ListAllDrv);
    
27.   WizardForm.DirBrowseButton.Visible := False;
    
28.   WizardForm.DirEdit.Visible := False;
    
29.   NewComboBox1 := TNewComboBox.Create(WizardForm);
    
30.   with NewComboBox1 do
    
31.   begin
    
32.     Parent := WizardForm.SelectDirPage;
    
33.     Left := ScaleX(0);
    
34.     Top := ScaleY(63);
    
35.     Width := ScaleX(417);
    
36.     Height := ScaleY(20);
    
37.     Text := '<选择一个安装目录>';
    
38.     For i := 0 to Length(ListAllDrv)-1 do
    
39.       Items.Add(ListAllDrv[i] + 'Program Files\XYZ')
    
40.   end;
    
41. end;
    
42. function NextButtonClick(CurPageID: Integer): Boolean;
    
43. begin
    
44. result:= true;
    
45. if CurPageID = wpSelectDir then
    
46.   if NewComboBox1.Text = '<选择一个安装目录>' then
    
47.     result:= false
    
48.   else
    
49.     WizardForm.DirEdit.Text := NewComboBox1.Text;
    
50. end;

复制代码