Regedit an bestimmer Position öffnen

[Ajintaro]

Hallo Leute!

Ich möchte mein System auf ca. 20 verschiedene Stellen in der Registrierung prüfen.
Allerdings ist es nervig im Registrierungseditor Tree alles zusammenzuklicken.

Ich brauch also z.B. einen Button mit dem ich den Regeditor öffnen kann und gleich an einer bestimmten stellen bin.

Per Shellexecute komm ich an den Editor, aber wie an die gewünschte STelle?

Z.B. HKEY_CURRENT_USER\Software\Microsoft\Mediaplayer ?

Kann ich da mit dem Lastkey arbeiten?

[Phoenix]

Hrm. Du kannst im Registry-Editor Favoriten anlegen.
Dort kannst Du dann innerhalb vom Editor mit einem Klick direkt zum gewünschten Key springen. Ob man den auch via Parameter übergeben kann ist mir allerdings unbekannt.

Aber warum liest Du die 20 Werte nicht direkt aus der Registry aus, wenn Du nur diese überprüfen willst?

[peschai]

Hallo,

Hat noch jemand ein Idee, wie man gezielt regedit an einer bestimmten position in der REgistry öffnen kann. Ich möchte mittels Button indie Registry an diese stelle springen und dort in Regedit anzeigen, was da steht.

Danke

[Remko]

Send keys to it?

[_frank_]

evtl hilft das:

HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Applets\Regedit (die zeichenfolge von LastKey)

also vorher mittels TRegistry setzen und dann regedit aufrufen. habs jetzt zwar nicht getested, sollte aber funktionieren.

HTH Frank

[verwirrt]

Hallo,

vielleicht hilft das:

http://www.swissdelphicenter.ch/de/showcode.php?id=1542

[DeddyH]

Siehe #4 :zwinker:

[r_amse_s]

hat jemand vielleicht eine Lösung für Vista und Win7?
danke!

[toms]

Warum die 20 Stellen nicht mit Delphi Code auslesen und darstellen?

[Björn Ole]

Die SendMessage-Methode funktioniert zwar bei mir unter Win7, allerdings finde ich das Setzen des zuletzt benutzten Keys sauberer.

Delphi-Quellcode:

uses
  Registry, ShellAPI;

procedure OpenRegistryKey(const AKey: string);
begin
  with TRegistry.Create do
  begin
    try
      RootKey := HKEY_CURRENT_USER;
      OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Applets\Regedit', false);
      // zuletzt geöffneten Key setzen, damit beim nächsten Öffnen der regedit.exe direkt dorthin gesprungen wird
      WriteString('LastKey', 'Computer\' + AKey);
      CloseKey;
    finally
      Free;
    end;
  end;
  // regedit.exe öffnen
  ShellExecute(0, 'open', 'regedit.exe', nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Beispielaufruf
  OpenRegistryKey('HKEY_CURRENT_USER\Environment');
end;