Registrierten Benuter & Produkt Key auslesen

Erklärung
bei HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion findet man wichtige Informationen über das Windows System. In diesem Fall haben wir uns für den Registrierten Benutzer(RegisteredOwner), die Firma(RegisteredOrganization) und den CD-Key(ProductId) entschieden. Diese Informationen werden dann über die Label 1-3 ausgegeben.

Quelltext
Wichtig: In die Uses-Klausel REGISTRY aufnehmen
  uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var R: TRegistry;

begin
R := TRegistry.create;
R.RootKey := HKEY_LOCAL_MACHINE;
R.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',true);
Label1.Caption := R.ReadString('RegisteredOwner');
Label2.Caption := R.ReadString('RegisteredOrganization');
Label3.Caption := R.ReadString('ProductId');
R.free;

end;