Harddisk serie-nummer

Hvordan finder jeg min harddisks serie-nummer?
(Jeg vil helst have 2 forskellige kode eksempler hvis det kan lade sig gøre)

Kode 

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; 


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

Hvordan finder jeg min harddisks serie-nummer?
(Jeg vil helst have 2 forskellige kode eksempler hvis det kan lade sig gøre)

Kode 

procedure TForm1.Button1Click(Sender: TObject);var  SerialNum : pdword;
  a, b : dword;  
Buffer  : array [0..255] of char;
begin
if GetVolumeInformation('c:\\', Buffer, SizeOf(Buffer), @SerialNum, a, b,
nil, 0) then
Label1.Caption := IntToStr(SerialNum^);
end;