[Delphi] Volume Serial HWID HDD

 function FindVolumeSerial(const Drive : PChar) : string;  
 var  
 fileSystemName, volumeName: array[0..99] of char;  
 fileSystemFlags, serialNo, maxFilenameLength: DWORD;  
 imp:String;  
 begin  
 Result:='';  
 GetVolumeInformation(Drive, volumeName,SizeOf(volumeName), @serialNo,maxFilenameLength, fileSystemFlags,fileSystemName, SizeOf(fileSystemName));  
 imp := inttostr(serialNo);  
 Result := imp;  
 end; (*FindVolumeSerial*)