Registry Lesen

[mkinzler]

Zitat:

Hast du Administratorenrechte? Ist die UAC aktiv? ansonsten kann die Virtualisierung zuschlagen.

Bei CURRENT_USER?

[Dieter11]

Hallo,

ja, ich habe die Adminrechte und lese jetzt auch aus HKEY_LOCAL_MACHINE-

Leider ohne Ergebnis.

Gruss

Dieter

[Dieter11]

Habe den Fehler gefunden.

Danke für Eure Unterstützung.

Gruss

Dieter

[daywalker9]

Und was wars?

[Dieter11]

Es waren 2 Fehler:

try
Registry.RootKey := HKEY_LOCAL_MACHINE;
Registry.OpenKey('Software\SysIT\Nails4You', true);

Test := Registry.ReadString('Mandant') ;
ShowMessage(Test);
// except
Mandant := Registry.ReadString('Mandant');

[Luckie]

Zitat von mkinzler:

Zitat:

Hast du Administratorenrechte? Ist die UAC aktiv? ansonsten kann die Virtualisierung zuschlagen.

Bei CURRENT_USER?

Also schreiben tut er nach HKLM.

[mkinzler]

Und gelesen aus HKCU

[Dieter11]

Ja, habe ich

[Matze]

Zu einem "OpenKey" gehört immer auch ein "CloseKey". Der Aufruf fehlt bei dir beim Auslesen. Beim Schreiben hast du diesen Aufruf drinnen.

Das nur nebenbei bemerkt.

[himitsu]

Zitat von Matze:

Zu einem "OpenKey" gehört immer auch ein "CloseKey".

kann man ... muß man aber nicht

Delphi-Quellcode:

function TRegistry.OpenKey(const Key: string; Cancreate: boolean): Boolean;
begin
  Result := CheckResult(RegOpenKeyEx(GetBaseKey(Relative), PChar(S), 0,
    FAccess, TempKey));
  ...
  if Result then
  begin
    ...
    ChangeKey(TempKey, S);  <<<<<
  end;
end;

procedure TRegistry.ChangeKey(Value: HKey; const Path: string);
begin
  CloseKey; <<<<<
  ...;
end;

Und nochmal zum CloseKey vor Free.

Delphi-Quellcode:

destructor TRegistry.Destroy;
begin
  CloseKey;  <<<<<
  inherited;
end;

PS:

Delphi-Quellcode:

Finally
  Registry.CloseKey;
  Registry.Free;
End;

und das ist Syntaktisch auch falsch.
(auch wenn es hier vermutlich in CloseKey nie zu einer Exception kommt)
Vor dem Free ruft man nix mehr auf ... denn wenn da was passieren würde, dann wäre der Resourcenschutzblock Wirkungslos, da Free dann dennoch nicht aufgerufen würde.