Hi@all. Auf der Suche nach einem halbwegs guten Kriterium, um einen Rechner "eindeutig" zu identifizieren (ich weiß, das geht nicht, bitte keine Grundsatzdiskussion an dieser Stelle), bin ich durch Suchen im Forum auf die Windows ID aufmerksam geworden. Diese findet man unter Windows XP in der Registry, weshalb ich mir eine kleine Funktion gebastelt habe:
Delphi-Quellcode:
function TForm1.GetWindowsID:string;
var Reg:TRegistry;
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion', false);
result := Reg.ReadString('ProductID');
except
result := 'Unknown';
end;
end;
Leider existiert der Eintrag "ProductID" unter Windows Vista nicht mehr in diesem Verzeichnis. Hat Vista keine ProductID mehr, oder ist diese einfach woanders zu finden? Gibt es evtl eine
API Funktion, um die Nummer Betriebsystemunabhängig auszulesen?
Grüße und besten Dank,
Euer Michael