Seriennummer eines Laufwerks ermitteln

[cruso]

Wenn man z.B. ein Systemdiagnosetool schreiben möchte, dann kann es nützlich sein, wenn man weiß, wie man die Seriennummer eines Laufwerks herausfinden kann. Diese Seriennummer ist jedoch nur die von Windows vergebene Nummer für das Laufwerk und nicht identisch mit der richtigen Seriennummer der Festplatte.
Sucht man nach dieser Seriennummer, sollte man sich diese Seite oder diese Komponente ansehen, auf die Union hingewiesen hat. Jedoch funktioniert dies nur mit SMART-kompatiblen Festplatten.

Delphi-Quellcode:

function HDSerialID(drive: Char): string;
var
  Nummer, dwx, dwy: Word;
begin
  if GetVolumeInformation(pChar(drive+':\'), nil, 0, @Nummer, dwx, dwy, nil, 0) then 
    Result := IntToStr(Nummer)
  else
    Result := 'Unerwarter Fehler!'
end;

Und so kann man das Ganze dann abrufen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Hier muss auch der Laufwerksbuchstabe übergeben werden!!!
  Label1.Caption := HDSerialID('c');
end;

[edit=Chakotay1308]Styleguide! Mfg, Chakotay1308[/edit]
[edit=Chakotay1308]Hinweis zur richtigen Seriennummer angefügt. Mfg, Chakotay1308[/edit]