HKEY und String was tuen ?

[Jarmen_Kell]

Oder einfach

Delphi-Quellcode:

uses Registry

var
  Reg:TRegistry;
  s:String;

...

  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software/meinekeys',false) //false = bei nicht-existenz NICHT erstellen
  s:=Reg.ReadString('wert1')

[agm65]

sorry leute hatte eben erst zeit eure post anzuschauen ...1a !

Delphi-Quellcode:

function StrToHKEY(Key: string): HKEY; 
begin 
  if Key = 'HKEY_CURRENT_USER' then Result := HKEY_CURRENT_USER; 
  //...usw 
end;

das ist es....einfach und schnell.....10000000 DANKE

[MisterNiceGuy]

Für alle die die gegenteilige Funktion interessiert:

Delphi-Quellcode:

function TForm1.hkeytostr(rootkey:hkey):string;
begin
  case rootkey of
    HKEY_CLASSES_ROOT : result := 'HKEY_CLASSES_ROOT';
    HKEY_CURRENT_USER : result := 'HKEY_CURRENT_USER';
    HKEY_LOCAL_MACHINE : result := 'HKEY_LOCAL_MACHINE';
    HKEY_USERS : result := 'HKEY_USERS';
    HKEY_CURRENT_CONFIG : result := 'HKEY_CURRENT_CONFIG';
  end;
end;