[Delphi] jak jestescie tacy dobrzy to luknijcie(TTreeView i

0

Napiszcie procedurkę wyświetlającą wszystkie klucze rejestru windows w TTreeView.
Thanks.

0

uuuuuuuuuuu....
nieśmiało zapytam: "po co to komu?!"

0

No dobra tylko to troche musisz przerobic
a tak w ogole to grupa pl.comp.lang.delphi sie klania :P , a przynajmniej archiwum,
kod napisal: Andrzej Maliszewski - Aragorn tak dla jasnosci :P

&gt procedure TForm1.Button1Click(Sender: TObject);
&gt var
&gt Rejestr: TRegistry;
&gt s: string;
&gt i: integer;
&gt
&gt procedure AddKeysValues (TreeNodes: TTreeNodes; ParentNode: TTreeNode;
&gt Name: string);
&gt var
&gt List: TStringList;
&gt SelfNode: TTreeNode;
&gt i: integer;
&gt begin
&gt List := TStringList.Create;
&gt try
&gt SelfNode := TreeNodes.AddChild (ParentNode, Name);
&gt Rejestr.OpenKey (Name, False);
&gt if Rejestr.HasSubKeys then begin
&gt Rejestr.GetKeyNames (List);
&gt Rejestr.CloseKey;
&gt for i := 0 to List.Count - 1 do
&gt AddKeysValues (TreeNodes, SelfNode, Name + '\' + List[i]);
&gt Rejestr.OpenKey (Name, False);
&gt end;
&gt Rejestr.GetValueNames (List);
&gt if List.Count &gt 0 then
&gt for i := 0 to List.Count - 1 do
&gt TreeNodes.AddChild (SelfNode, List[i]);
&gt Rejestr.CloseKey;
&gt finally
&gt List.Free;
&gt end;
&gt end;
&gt
&gt begin
&gt Rejestr:=TRegistry.Create;
&gt try

  • odpowiedni rootkey
    &gt Rejestr.RootKey:=HKEY_LOCAL_MACHINE;
    *tutaj tylko podaj odpowiedni klucz
    &gt s := 'System\CurrentControlSet\Services\Class\NetTrans\';
    &gt for i:=1 to 10 do
    &gt begin
    &gt if Rejestr.KeyExists(s + '000' + inttostr(i)) = True then
    &gt begin
    &gt AddKeysValues (TreeView1.Items, nil, s + '000' + inttostr(i));
    &gt end;
    &gt end;
    &gt finally
    &gt Rejestr.Free;
    &gt end;
    &gt end;

Zmien tylko zeby wypisywal wszystkie klucze i bedzie git , nie bede ci juz wyreczal ze wszystkiego ;).

Juz teraz wiesz ze GOGLE jest najlepsze !!!:D

wiem że nic nie wiem ;)
Pozdrowienia Chodek

1 użytkowników online, w tym zalogowanych: 0, gości: 1