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;