delphi 获取驱动盘的卷标 号

{获取C盘的卷标 格式化硬盘卷标改变}
//GetHardDiskSerial('c:\')
function  GetHardDiskSerial ( Drive :  string ):  string ;
var  VolumeSerialNumber :  DWORD ; 
   MaximumComponentLength :  DWORD ; 
   FileSystemFlags :  DWORD ; 
begin 
   if  Drive [ Length ( Drive )]= ':'  then  Drive  :=  Drive  +  '\' ; 
   GetVolumeInformation ( PChar ( Drive ),  nil ,  0 ,  @ VolumeSerialNumber ,  MaximumComponentLength ,  FileSystemFlags ,  nil ,  0 ); 
   Result  :=  IntToHex ( HiWord ( VolumeSerialNumber ),  4 )  +  '-'  +  IntToHex ( LoWord ( VolumeSerialNumber ),  4 );
end ; 

 

 

来自为知笔记(Wiz)