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...