ART_43 Home Site

function GetVolumeSerialNumber(Drive: Char): DWORD;
var
 MaximumComponentLength, FileSystemFlags: DWORD;
begin
 if not GetVolumeInformation(PChar(Drive + ':\'), nil, 0, @Result,
   MaximumComponentLength, FileSystemFlags, nil, 0) then
   RaiseLastWin32Error;
end;