Получаем серийный номер жесткого диска

В некоторых программах, связанных с аппаратной частью компьютера, требуется получить серийный номер винчестера. Сегодня мы это сделаем.
Итак, объявляем вот такую функцию и пишем её код:

function GetHardDiskSerial(const DriveLetter: Char): string; 
var 
  NotUsed:     DWORD; 
  VolumeFlags: DWORD; 
  VolumeInfo:  array[0..MAX_PATH] of Char; 
  VolumeSerialNumber: DWORD; 
begin 
  GetVolumeInformation(PChar(DriveLetter + ':\'), 
    nil, SizeOf(VolumeInfo), @VolumeSerialNumber, NotUsed, 
    VolumeFlags, nil, 0); 
  Result := Format('Label = %s   VolSer = %8.8X', 
    [VolumeInfo, VolumeSerialNumber]) 
end;

Чтобы использовать функцию надо указать в качестве параметра букву диска(к примеру C).
Смотрим пример:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage(GetHardDiskSerial('c')); 
end;

На этом всё, желаю всем
Удачи!