Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
26. Dez 2007
Hier mal eine kleine Demo. Pack dazu mal eine ListView auf Dein Formular.uses Registry;
procedure TForm1.FormCreate(Sender: TObject);
var Reg: TRegistry;
sList: TStringList;
i: integer;
Item: TListItem;
Column: TListColumn;
begin
ListView1.ViewStyle := vsReport;
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
26. Dez 2007
Nu mal langsam: GetKeyNames listet Dir alle Unterschlüssel (sofern vorhanden). Was willst Du denn aufgelistet bekommen?
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
26. Dez 2007
Dann mach es doch mit Reg.GetKeyNames(Memo1.Lines);
Das spart auch die StringListe ein.
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
26. Dez 2007
Du liest die Schlüssel in die Liste und hängst anschließend noch den Inhalt Deines Memos an. Bist Du Dir sicher, dass das so beabsichtigt ist?
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
26. Dez 2007
Ich meinte, dass es wenig Sinn macht, ein Objekt zu erzeugen, zu befüllen und dann gleich wieder freizugeben. Irgendwo sollte der Inhalt schon abgelegt werden ;).
Forum: Win32/Win64 API (native code)
Delphi
by DeddyH,
26. Dez 2007
procedure TForm1.Button3Click(Sender: TObject);
var
Reg:tregistry ;
keys:tstringlist ;
begin
Reg := TRegistry.Create;
keys := TStringList.Create;
try
reg.Rootkey:=HKEY_CURRENT_USER;