1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

function VolumeSN(Drive: string): string;
var
  OldErrorMode      : Integer;
  NotUsed, VolFlags : DWORD;
  SN                : LPDWORD;
  Buf               : array [0..MAX_PATH] of Char;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    GetVolumeInformation(PChar(Drive), Buf,
                         sizeof(Buf), SN, NotUsed, VolFlags,
                         nil, 0);
    Result := IntToStr( Integer( SN ) );
  finally
    SetErrorMode(OldErrorMode);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function VolumeSN(Drive: Char): string;
var
 sn,cl,sf:DWord;
begin
  sn :=0;
  cl := 0;
  sf := 0;
  GetVolumeInformation(PChar(Drive + ':\') , nil, 0 , @SN  , cl  ,sf  , nil, 0);
  Result := IntToHex(HiWord(sn), 4) + '-' + IntToHex(Word(sn), 4);
end;