var
 serial:dword;
 tmp:dword;
begin
 if GetVolumeInformation('c:\', 0, 0, @serial, tmp, tmp, 0, 0) then
  showmessage(inttohex(serial, 8));