HKEY und String was tuen ?

[agm65]

guten abend leute, was nen sau wetter heute...

folgendes problem:

Delphi-Quellcode:

 s := GetValueFromReg(sl3.strings[i]  ,sl.strings[i] , sl4.Strings[i] )

Inkompatible Typen: 'HKEY' und 'String'


hat einer ne idee ?? thx cu agm65

[Phistev]

Guck dir die Dokumentation zu dem Befehl an, insbesondere die Typen der Parameter, einer davon dürfte ein Aufzählungstyp sein

[agm65]

? beispiel ?

[Ultimator]

Du kannst nicht einfach einen String als Parameter angeben, die Funktion erwartet sowas wie HKEY_CURRENT_USER oder so als einen der Parameter.

[agm65]

ja schon klar...aber die strings beinhalten genau diese infos...

gibt es sowas wie: hkeytostr('mystring') ?

[Phistev]

Musst dir selber schreiben, sind doch nur 5 if-Abfragen

[BlackJack]

Zitat:

Zitat von agm65

ja schon klar...aber die strings beinhalten genau diese infos...

gibt es sowas wie: hkeytostr('mystring') ?

wie wäre es mit selber machen?

Code:

if UpperCase(AStr) = 'HKEY_CURRENT_USER' then
  Result := HKEY_CURRENT_USER
else
  //...

[Pseudemys Nelsoni]

Delphi-Quellcode:

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

Achja, pass auch auf das "Key" wirklich ein Key enthält

[BlackJack]

jetzt sogar 3 Dumme, ein Gedanke ;D

[shmia]

Wenn wir schon dabei sind; in der Unit RegStr sind viele Stringkonstanten definiert, die man
bei der Arbeit mit der Registry brauchen kann.

[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;