Registry auslesen funktioniert nicht

[Furtbichler]

Du musst die Registry Instanz so instantiieren:

Delphi-Quellcode:

Const
  KEY_WOW64_64KEY=$100;

...
Registry:=TRegistry.Create(KEY_READ OR KEY_WOW64_64KEY);

Dann geht es. Habs eben getestet (ich hab Win7 64bit).

[Vielleichtmann]

Zitat:

Zitat von Furtbichler (Beitrag 1207832)

Dann geht es. Habs eben getestet (ich hab Win7 64bit).

Funktioniert aus irgendwelchen Gründen ebenfalls nicht. Jedenfalls nicht unter Lazarus.

[Furtbichler]

Da ich kein Lazarus habe, klinke ich mich hier aus.

Na jedenfalls konnte ich dein Problem wenigstens bei mir unter Delphi nachvollziehen...

Tut mir leid.

[Vielleichtmann]

Zitat:

Zitat von Furtbichler (Beitrag 1207842)

Da ich kein Lazarus habe, klinke ich mich hier aus.

Es war jetzt letztendlich quasi das, was du meintest.

Delphi-Quellcode:

procedure TForm1.RegistryAuslesen;
var Registry: TRegistry;
    Test: string;
begin
  Registry:=TRegistry.Create(KEY_READ OR $0100);
  {Testweise auslesen von HKEY_LOCAL_MACHINE\SOFTWARE\Lazarus\Capabilities\ApplicationName}
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  Registry.OpenKey('\SOFTWARE\Lazarus\Capabilities', false);

  Test:=Registry.ReadString('ApplicationName');

  ShowMessage(Test);
  {"Schließen" der Registry}
  Registry.CloseKey;
  Registry.free;
end;

So läuft es zumindest schonmal unter 64-Bit. Trotzdem danke :-)

Edit: Und wenn mir dann noch jemand helfen könnte, wie ich alle Schlüssel eines Ordners in der Registry auslesen kann, wär das natürlich noch ideal.

[DeddyH]

http://docwiki.embarcadero.com/Libra...ry.GetKeyNames
Ich vermute, das oder zumindest etwas Ähnliches ist auch unter Lazarus verfügbar.

[Andreas L.]

Ein Ressourcenschutzblock und die Auswertung des Rückgabewertes von OpenKey täte deinen Code auch gut.

Delphi-Quellcode:

procedure TForm1.RegistryAuslesen;
var Registry: TRegistry;
    Test: string;
begin
  Registry := TRegistry.Create(KEY_READ OR $0100);
  try
    {Testweise auslesen von HKEY_LOCAL_MACHINE\SOFTWARE\Lazarus\Capabilities\ApplicationName}
    Registry.RootKey:=HKEY_LOCAL_MACHINE;
    if Registry.OpenKey('\SOFTWARE\Lazarus\Capabilities', false) then
    begin
      Test := Registry.ReadString('ApplicationName');
      ShowMessage(Test);

      {"Schließen" der Registry}
      Registry.CloseKey;
    end;
  finally
    Registry.free;  // oder FreeAndNil(Registry)
  end;
end;

[Vielleichtmann]

Zitat:

Zitat von DeddyH (Beitrag 1207852)

Ich vermute, das oder zumindest etwas Ähnliches ist auch unter Lazarus verfügbar.

Ok, danke :-) Anscheinend ist das gar nicht so schwer, wenn man weiß, wonach man suchen muss...

Zitat:

Zitat von Andreas L. (Beitrag 1207857)

Ein Ressourcenschutzblock und die Auswertung des Rückgabewertes von OpenKey täte deinen Code auch gut.

Wird später noch alles kommen, erstmal muss das Grundlegende funktionieren :D

[Sir Rufo]

Zitat:

Zitat von Vielleichtmann (Beitrag 1207870)

Zitat:

Zitat von Andreas L. (Beitrag 1207857)

Ein Ressourcenschutzblock und die Auswertung des Rückgabewertes von OpenKey täte deinen Code auch gut.

Wird später noch alles kommen, erstmal muss das Grundlegende funktionieren :D

Nach einer gewissen Zeit wird das zur Routine und dann zum Reflex ;)