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]