Registry: Liste von Unterschlüsseln -> ListBox

JayK · Beiträge: 1013

Hallo,

wie kann ich (möglichst unkompliziert) zu einem beliebigen Schlüssel oder HKEY die Unterschlüssel auf der 1. Ebene* in einer ListBox anzeigen lassen?
Ich bitte auch um Code-Beispiele.

Schonmal Danke im vorraus,
JayK

*ich meine folgendes: Ich habe HKEY_CLASSES_ROOT am Wickel. Dieser hat einen Unterschlüssel .pas. Dieser wiederum hat noch einen Unterschlüssel Shell. Wenn ich jetzt den Inhalt von HKEY_CLASSES_ROOT in die ListBox schreiben möchte, soll .pas darin erscheinen, Shell darunter jedoch nicht.

StefanH · Verfasst: Do 23.06.05 16:23

geht TRegistry.GetKeyNames(Strings: TStrings); nicht?

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

JayK · Beiträge: 1013

StefanH hat folgendes geschrieben:

geht TRegistry.GetKeyNames(Strings: TStrings); nicht?

Denke schon, dass es gehen müsste, tut es jedoch nicht. Ich möchte in meinem Fall die Unteerschlüssel von HKEY_CLASSES_ROOT auflisten lassen.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

FileTypeList: TListBox;

procedure TForm1.bLoadClick (Sender: TObject );
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    with reg do
      begin
      RootKey := HKEY_CLASSES_ROOT;
      GetKeyNames(FileTypeList.Items);
      end;
   finally
     reg.Free;
   end;
end;

StefanH · Verfasst: Do 23.06.05 16:51

bau noch ein OpenKey('', false); ein... dann gehts

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

JayK · Beiträge: 1013

StefanH hat folgendes geschrieben:

bau noch ein OpenKey('', false); ein... dann gehts

Die bescheuerte Runtime-Exception Box hat folgendes geschrieben:

Project project 1 raised exception class 'External: SISSEGV'.

Kann denn nicht auch nur einmal etwas funktionieren hier?!!
HINWEIS: Dieses Gefluche gilt nicht irgendwelchen Usern des Delphi-Forums oder anderen humanoiden Lebewesen.

StefanH · Verfasst: Do 23.06.05 19:33

hm.. bei mir geht das:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.bLoadClick (Sender: TObject );
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    with reg do
      begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey('', false);
      GetKeyNames(FileTypeList.Items);
      end;
   finally
     reg.Free;
   end;
end;

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

JayK · Beiträge: 1013

genau so hab ich es da stehen... :nixweiss:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme