Getting Serial Number of a disk

برای خواندن سریال یک درایو می توانید از نمونه های زیر استفاده کنید :
نمونه اول

var 

  VolSerNum: DWORD; 

  Dummy1, Dummy2: DWORD; 

begin 

  if GetVolumeInformation('c:\', NIL, 0, @VolSerNum, Dummy1, Dummy2, NIL, 0) then 

    ShowMessage(Format('%.4x:%.4x', [HiWord(VolSerNum), LoWord(VolSerNum)])); 

end;

نمونه دوم

function GetSerialNumber(Const ADrive: Char): Integer;

var

  SerialNum : pdword;

  a, b : dword;

  Buffer  : array[0..255] of char;

begin

  Result:=0;

  if GetVolumeInformation(PChar(ADrive+':\'), 

                          Buffer, 

                          SizeOf(Buffer), 

                          SerialNum,

                          a,

                          b,

                          nil,

                          0) then

    Result:=SerialNum^;

end;