Festplatte Serialnummer ablesen

[Thanatos81]

Direkt die Seriennummer der Festplatte hab ich auch lange nach gesucht, und mich dann irgendwann mit der S/N der C-Partition begnügt:

Delphi-Quellcode:

function GetDiskVolSerialID(cDriveName : char ) : Integer;
var dummy1,dummy2 : DWord;
begin
  GetVolumeInformation(PChar( cDriveName + ':\' ),Nil,0,@Result,dummy1,dummy2,Nil,0);
end;

Das bedeutet natürlich, falls du aus der HDD-S/N eine Programm-S/N machen willst, dass deine Kunden nach ner Formatierung der C-Partition ne neue Programm-S/N brauchen...