如何获得驱动器的卷标和序列号

Share

1. #ifdef Unicode
   
2. #define A "W"
   
3. #else
   
4. #define A "A"
   
5. #endif
   
6. 
   
7. [Setup]
   
8. AppName=DriveVolume
   
9. AppVerName=DriveVolume
   
10. Uninstallable=false
    
11. UpdateUninstallLogAppName=false
    
12. DisableDirPage=true
    
13. DisableProgramGroupPage=true
    
14. DefaultDirName={pf}\DriveVolume
    
15. DisableStartupPrompt=true
    
16. 
    
17. [_ISTool]
    
18. EnableISX=true
    
19. 
    
20. [Code]
    
21. function GetVolumeInformation(
    
22. lpRootPathName: String;
    
23. lpVolumeNameBuffer: String;
    
24. nVolumeNameSize: LongInt;
    
25. var lpVolumeSerialNumber: LongInt;
    
26. lpMaximumComponentLength: LongInt;
    
27. lpFileSystemFlags : LongInt;
    
28. lpFileSystemNameBuffer: String;
    
29. nFileSystemNameSize: LongInt ) : Integer;
    
30. external 'GetVolumeInformation{#A}@kernel32.dll stdcall';
    
31. { // API declaration in C
    
32. BOOL GetVolumeInformation(
    
33.   LPCTSTR lpRootPathName,           // root directory
    
34.   LPTSTR lpVolumeNameBuffer,        // volume name buffer
    
35.   DWORD nVolumeNameSize,            // length of name buffer
    
36.   LPDWORD lpVolumeSerialNumber,     // volume serial number
    
37.   LPDWORD lpMaximumComponentLength, // maximum file name length
    
38.   LPDWORD lpFileSystemFlags,        // file system options
    
39.   LPTSTR lpFileSystemNameBuffer,    // file system name buffer
    
40.   DWORD nFileSystemNameSize         // length of file system name buffer
    
41. );
    
42. }
    
43. function GetLastError( ) : Integer;
    
44. external 'GetLastError@kernel32.dll stdcall';
    
45. 
    
46. function InitializeSetup(): Boolean;
    
47. var srcdisk, volume: String;
    
48.     ercode: Integer; sernum: LongInt;
    
49. begin
    
50.   Result := true;
    
51.   srcdisk := AddBackslash( ExtractFileDrive( ExpandConstant('{srcexe}') ) );
    
52.   volume := StringOfChar( ' ', 16 );
    
53.   if GetVolumeInformation( srcdisk, volume, 15, sernum, 0, 0, '', 0 ) = 0 then
    
54.     begin
    
55.       ercode := GetLastError();
    
56.       MsgBox( SysErrorMessage( ercode ), mbError, MB_OK );
    
57.       Result := false;
    
58.     end
    
59.   else begin
    
60.     volume := CastIntegerToString( CastStringToInteger(volume) );
    
61.     MsgBox( Format( '%s 的卷标是“%s”，序列号是 %s。', [srcdisk, volume, IntToStr(sernum)] )
    
62.       , mbInformation, MB_OK );
    
63.   end;
    
64. end;

复制代码