Hallo,
dies funktioniert bei allen Windows-Versionen, auch wenn ESK noch nicht existiert:
Delphi-Quellcode:
try
reg:=tregistry.Create;
reg.RootKey:=HKey_Local_Machine;
reg.OpenKey('Software\ESK',true);
reg.WriteString('ID',s);
reg.CloseKey;
except
reg.Free;
messagedlg(_('Nicht genügend Rechte vorhanden.')+#13+ ....
end;
Erstens hat er es so wie du, und zweitens hast du es sogar falsch, da du reg nur bei einem fehler frei gibst
