AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Registry auslesen funktioniert nicht

Registry auslesen funktioniert nicht

Offene Frage von "Sir Rufo"
Ein Thema von Vielleichtmann · begonnen am 17. Mär 2013 · letzter Beitrag vom 19. Mär 2013
Antwort Antwort
Seite 2 von 2     12
Furtbichler
(Gast)

n/a Beiträge
 
#11

AW: Registry auslesen funktioniert nicht

  Alt 17. Mär 2013, 20:15
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).
  Mit Zitat antworten Zitat
Vielleichtmann

Registriert seit: 4. Feb 2013
8 Beiträge
 
FreePascal / Lazarus
 
#12

AW: Registry auslesen funktioniert nicht

  Alt 17. Mär 2013, 22:18
Dann geht es. Habs eben getestet (ich hab Win7 64bit).
Funktioniert aus irgendwelchen Gründen ebenfalls nicht. Jedenfalls nicht unter Lazarus.
  Mit Zitat antworten Zitat
Furtbichler
(Gast)

n/a Beiträge
 
#13

AW: Registry auslesen funktioniert nicht

  Alt 17. Mär 2013, 23:17
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.
  Mit Zitat antworten Zitat
Vielleichtmann

Registriert seit: 4. Feb 2013
8 Beiträge
 
FreePascal / Lazarus
 
#14

AW: Registry auslesen funktioniert nicht

  Alt 18. Mär 2013, 00:55
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.

Geändert von Vielleichtmann (18. Mär 2013 um 01:00 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#15

AW: Registry auslesen funktioniert nicht

  Alt 18. Mär 2013, 08:09
http://docwiki.embarcadero.com/Libra...ry.GetKeyNames
Ich vermute, das oder zumindest etwas Ähnliches ist auch unter Lazarus verfügbar.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Andreas L.

Registriert seit: 23. Mai 2011
Ort: Furth im Wald
308 Beiträge
 
Delphi 11 Alexandria
 
#16

AW: Registry auslesen funktioniert nicht

  Alt 18. Mär 2013, 10:00
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;
Andreas Lauß
Blog
  Mit Zitat antworten Zitat
Vielleichtmann

Registriert seit: 4. Feb 2013
8 Beiträge
 
FreePascal / Lazarus
 
#17

AW: Registry auslesen funktioniert nicht

  Alt 18. Mär 2013, 11:17
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...

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
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#18

AW: Registry auslesen funktioniert nicht

  Alt 19. Mär 2013, 00:15
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
Nach einer gewissen Zeit wird das zur Routine und dann zum Reflex
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:58 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz