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;