function GetDiskVolSerialID( cDriveName : char ): cardinal;
var
VolumeSerialNumber: DWORD;
MaximumComponentLength: DWORD;
FileSystemFlags: DWORD;
diskdrive: string;
begin
diskdrive := cDriveName + ':\';
GetVolumeInformation(pchar(diskdrive),
nil,
0,
@VolumeSerialNumber,
MaximumComponentLength,
FileSystemFlags,
nil,
0);
result := VolumeSerialNumber;
end;