Seriennummer herausfinden

Erklärung
Eine DriveComboBox startet die Funktion(getSerienNummer), diese liefert dann die Seriennummmer

Quelltext
  function getSerienNummer(Platte: char): string; 
{ Diese Funktion liefert die Seriennummer der Platte } 
var 
  PlattenSerienNummer, 
  MaximumComponentLength, 
  FileSystemFlags: DWORD; 
  SerienNummer: string; 
begin 
  GetVolumeInformation(PChar(Platte + ':\'), 
                       nil, 
                       0, 
                       @PlattenSerienNummer, 
                       MaximumComponentLength, 
                       FileSystemFlags, 
                       nil, 
                       0); 
  SerienNummer := IntToHex(HiWord(PlattenSerienNummer), 4) + 
                  '-' + 
                  IntToHex(LoWord(PlattenSerienNummer), 4); 
  Result := SerienNummer; 
end; 

procedure TForm1.DriveComboBox1Change(Sender: TObject); 
begin 
     lblSNummer.caption := getSerienNummer(DriveCombobox1.Drive); 
end;