Napiszcie procedurkę wyświetlającą wszystkie klucze rejestru windows w TTreeView.
Thanks.
uuuuuuuuuuu....
nieśmiało zapytam: "po co to komu?!"
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
> procedure TForm1.Button1Click(Sender: TObject);
> var
> Rejestr: TRegistry;
> s: string;
> i: integer;
>
> procedure AddKeysValues (TreeNodes: TTreeNodes; ParentNode: TTreeNode;
> Name: string);
> var
> List: TStringList;
> SelfNode: TTreeNode;
> i: integer;
> begin
> List := TStringList.Create;
> try
> SelfNode := TreeNodes.AddChild (ParentNode, Name);
> Rejestr.OpenKey (Name, False);
> if Rejestr.HasSubKeys then begin
> Rejestr.GetKeyNames (List);
> Rejestr.CloseKey;
> for i := 0 to List.Count - 1 do
> AddKeysValues (TreeNodes, SelfNode, Name + '\' + List[i]);
> Rejestr.OpenKey (Name, False);
> end;
> Rejestr.GetValueNames (List);
> if List.Count > 0 then
> for i := 0 to List.Count - 1 do
> TreeNodes.AddChild (SelfNode, List[i]);
> Rejestr.CloseKey;
> finally
> List.Free;
> end;
> end;
>
> begin
> Rejestr:=TRegistry.Create;
> try
- odpowiedni rootkey
> Rejestr.RootKey:=HKEY_LOCAL_MACHINE;
*tutaj tylko podaj odpowiedni klucz
> s := 'System\CurrentControlSet\Services\Class\NetTrans\';
> for i:=1 to 10 do
> begin
> if Rejestr.KeyExists(s + '000' + inttostr(i)) = True then
> begin
> AddKeysValues (TreeView1.Items, nil, s + '000' + inttostr(i));
> end;
> end;
> finally
> Rejestr.Free;
> end;
> 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