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*)
![[Delphi] Volume Serial HWID HDD [Delphi] Volume Serial HWID HDD](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZTjjQQOpW7PKEnWdg-FtYWflSxdbbaFfhAMdh-2zyfStTykdUoqZn15POjC2Aipjos3sakLzhW3ACz5OaHtsk0PIAJcsQHGdhiNtBKbRGQI-jdoh1Wq-GN-IH2MuSqb-5mjczsXKmOB4/s280/delpi.png)