如何获得驱动器类型

Share

1. #ifdef Unicode
   
2. #define A "W"
   
3. #else
   
4. #define A "A"
   
5. #endif
   
6. 
   
7. [Setup]
   
8. AppName=DriveType
   
9. AppVerName=DriveType
   
10. Uninstallable=false
    
11. UpdateUninstallLogAppName=false
    
12. DisableDirPage=true
    
13. DisableProgramGroupPage=true
    
14. DefaultDirName={pf}\Drvtype
    
15. DisableStartupPrompt=true
    
16. 
    
17. [Code]
    
18. function GetDriveType( lpDisk: String ): Integer;
    
19. external 'GetDriveType{#A}@kernel32.dll stdcall';
    
20. const
    
21.   DRIVE_UNKNOWN = 0; // The drive type cannot be determined.
    
22.   DRIVE_NO_ROOT_DIR = 1; // The root path is invalid. For example, no volume is mounted at the path.
    
23.   DRIVE_REMOVABLE = 2; // The disk can be removed from the drive.
    
24.   DRIVE_FIXED = 3; // The disk cannot be removed from the drive.
    
25.   DRIVE_REMOTE = 4; // The drive is a remote (network) drive.
    
26.   DRIVE_CDROM = 5; // The drive is a CD-ROM drive.
    
27.   DRIVE_RAMDISK = 6; // The drive is a RAM disk.
    
28. 
    
29. // function to convert disk type to string
    
30. function DriveTypeString( dtype: Integer ): String;
    
31. begin
    
32.   case dtype of
    
33.     DRIVE_NO_ROOT_DIR : Result := '根目录无效';  //'Root path invalid';
    
34.     DRIVE_REMOVABLE : Result := '可移动盘';      //'Removable';
    
35.     DRIVE_FIXED : Result := '硬盘';              //'Fixed';
    
36.     DRIVE_REMOTE : Result := '网络';             //'Network';
    
37.     DRIVE_CDROM : Result := '光盘';              //'CD-ROM';
    
38.     DRIVE_RAMDISK : Result := '内存';            //'Ram disk';
    
39.   else
    
40.     Result := '未知';                            //'Unknown';
    
41.   end;
    
42. end;
    
43. 
    
44. function InitializeSetup(): Boolean;
    
45. var srcdisk: String;
    
46.     disktype: Integer;
    
47. begin
    
48.   Result := true;
    
49.   // get drive from where setup was launched
    
50.   srcdisk := AddBackSlash( ExtractFileDrive( ExpandConstant('{srcexe}') ) ) ;
    
51.   // get number type of disk
    
52.   disktype := GetDriveType( srcdisk );
    
53.   // show which type of disk it is
    
54.   MsgBox( Format( '安装程序从 %s 启动，类型为“%s”。', [srcdisk, DriveTypeString( disktype )] ) , mbInformation, MB_OK );
    
55. end;

复制代码