[es] - Citanje stabla Registry-ja

bojan21
Bojan Zukic
Beograd

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

Profil

^{07.10.2006. u 12:05}

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!!!

^{07.10.2006. u 12:05}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 13:01}

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

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{07.10.2006. u 13:01}

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 1464
*.adsl.sezampro.yu.

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 13:06}

> 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.yu/~fangor...stions/smart-questions.sr.html

^{07.10.2006. u 13:06}

Miloš Baić
Miloš Baić

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

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 13:29}

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.

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{07.10.2006. u 13:29}

bojan21
Bojan Zukic
Beograd

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

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 13:40}

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

^{07.10.2006. u 13:40}

Miloš Baić
Miloš Baić

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

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 14:03}

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

If you go out of your mind, do it quietly, so as not to disturb those around you...

^{07.10.2006. u 14:03}

bojan21
Bojan Zukic
Beograd

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

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 14:05}

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

^{07.10.2006. u 14:05}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 14:59}

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.

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{07.10.2006. u 14:59}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 15:01}

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

http://www.elitesecurity.org/p1006331

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{07.10.2006. u 15:01}

bojan21
Bojan Zukic
Beograd

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

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 16:29}

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.)

^{07.10.2006. u 16:29}

Srki_82
Srdjan Tot
Me @ My Home
Ljubljana

Član broj: 28226
Poruke: 1402
82.208.201.*

ICQ: 246436949

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 16:40}

Ehhh, jos kad bih mogao da ti napisem ceo program

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

DirectX na srpskom | GLScene na srpskom

There are only 10 types of people in this world; those who understand binary and those who don't.

^{07.10.2006. u 16:40}

bojan21
Bojan Zukic
Beograd

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

Profil

Re: Citanje stabla Registry-ja

^{07.10.2006. u 19:36}

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

^{07.10.2006. u 19:36}