[es] - Citanje stabla Registry-ja

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.kalik.info.

+6 Profil

^{07.10.2006. u 12:05 - pre 213 meseci}

Pozdrav!!! Jedno pitanje: Kako da u nekom TreeViev-u da pokazem stablo Registry baze, tj. glavni folder: Registry pa pod folderi (grane) Hkeys (current, local ,root itd)!!!

Hvala unapred!!!

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 13:01 - pre 213 meseci}

Ako nemas zelju da bas sam pises kod, mozes koristiti gotovu klasu za to koja postoji u JVCL.

Play Store

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 13:06 - pre 213 meseci}

> Pozdrav!!! Jedno pitanje: Kako da u nekom TreeViev-u da pokazem stablo Registry baze, tj. glavni folder: Registry pa pod folderi (grane)
> Hkeys (current, local ,root itd)!!!

Nema gotove metode, ali nije teško, TRegistry klasa sadrži sve što treba.

Code:

procedure FillTree(ATree: TTreeView);
var
  reg: TRegistry;

  procedure FillAndTraverseReg(const APath: string; const ATreeNode: TTreeNode);
  var
    s: TStrings;
    i: Integer;
    Temp: TTreeNode;
  begin
    s := TStringList.Create;
    try
      reg.CloseKey;
      reg.OpenKey(APath, False);

      reg.GetKeyNames(s);

       for i := 0 to s.Count - 1 do
       begin
         Temp := ATree.Items.AddChild(ATreeNode, s[i]);
         FillAndTraverseReg(APath + '\' + s[i], Temp);
       end;
    finally
      s.Free;
    end;
  end;
begin
  reg := TRegistry.Create(KEY_READ);
  try
    reg.RootKey := HKEY_CURRENT_USER;
    FillAndTraverseReg('', nil)
  finally
    reg.Free;
  end;
end;

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 13:29 - pre 213 meseci}

Pozdrav,

u JVCL postoji klasa TJvRegistryTreeView1, postaviš je na TForm, zatim postaviš i
jedan TListView,potom u TJvRegistryTreeView1 u property-u listView dodeliš ListView1,
recimo. Dalje u TListView nad property-em Columns - (TListColumns)
dodeliš 0-Name, 1-Value, 2-Type...
U TListView, property ViewStyle postaviš na vsReport.
I, to bi otprilike trebalo biti to... U JVCL, examples, imaš gotov primer.

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.kalik.info.

+6 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 13:40 - pre 213 meseci}

Hvala svima!!! P. S. JVCL mi ne radi!!!

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 14:03 - pre 213 meseci}

Moraš prvo instalirati JCL pakete, potom JVCL pakete i source dodati u library path.

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.kalik.info.

+6 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 14:05 - pre 213 meseci}

O tome sam vec pricao!!! NE radi mi JCL tj nece da mi instalira!!!

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 14:59 - pre 213 meseci}

Nije bas pametno da odjednom ubacis celu Registry bazu u Tree View. Ako root ima mnogo podkljuceva npr. Classes), tvom programu ce trebati mnogo vremena da popuni Tree View. Zato je bolje da popunis samo ono sto korisnik vidi. Znaci, u pocetku popunis samo prvi nivo ispod root kljuca. Kada korisnik otvori neki od tih podkljuceva, onda popunis samo ono sto se nalazi ispod njega, itd. Na taj nacin ce sve raditi brzo.

Play Store

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 15:01 - pre 213 meseci}

Evo, nadjoh jedan program koji radi nesto nalik tome sto ti treba.

http://www.elitesecurity.org/p1006331

Play Store

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.kalik.info.

+6 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 16:29 - pre 213 meseci}

Odlican primer!!! Jos ako bi mogao da mi kazes sta treba u kodu da se promeni da pokaze prvo Registry pa tek onda pod kljuceve (znaci HKEy_CURRENT_USER, HKEY_LOCAL_MACHINE itd.)

Odgovor na temu

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1403
82.208.201.*

ICQ: 246436949

+10 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 16:40 - pre 213 meseci}

Ehhh, jos kad bih mogao da ti napisem ceo program

Jednostavno dodaj pre svega jedan node i u njega dodaj sve ostale

Play Store

Odgovor na temu

bojan21
Bojan Zukic
Beograd

Član broj: 101113
Poruke: 251
*.kalik.info.

+6 Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 19:36 - pre 213 meseci}

Hvala uspeo sam!!! Jos to da povezem sa list view-om i kraj!!! Hvala o5!!!

Odgovor na temu