function GetVolumeID: string;var  vVolumeNameBuffer: array[0..255] of Char;  vVolumeSerialNumber: DWORD;  vMaximumComponentLength: DWORD;  vFileSystemFlags: DWORD;  vFileSystemNameBuffer: array[0..255] of Char;begin  if GetVolumeInformation('C:\', vVolumeNameBuffer, SizeOf(vVolumeNameBuffer),    @vVolumeSerialNumber, vMaximumComponentLength, vFileSystemFlags,    vFileSystemNameBuffer, SizeOf(vFileSystemNameBuffer)) then  begin    Result := IntToHex(vVolumeSerialNumber, 8);  end;end;