[Decoding]

Вот пример, который вернет серийный номер тома (именно тома, а не самого диска!!!).

Код:

 
function GetHDDSerialNumber(ADisk: char): String;
var
  SerialNum: dword;
  VolumeName, FSName: array [0..255] of char;
  MaximumFNameLength,
  FileSystemFlags: dword;
begin
   Result := '';
   if GetVolumeInformation( PChar( ADisk + ':\' ),
                            VolumeName, SizeOf( VolumeName ),
                            @SerialNum,
                            MaximumFNameLength,
                            FileSystemFlags,
                            FSName, SizeOf( FSName ) ) then
   Result := Format( '%.8x', [SerialNum] );
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage( GetHDDSerialNumber( 'c' ) );
end;