Registry

but how do i list them all out in memo1 ? there should be a code t odo so and it shouldn't be that long i think....

but how do i list them all out in memo1 ? there should be a code t odo so and it shouldn't be that long i think....

but how do i list them all out in memo1 ? there should be a code t odo so and it shouldn't be that long i think....

memo1 changes to a blank memo. doesn't work. put the code t ofunction when i click button1

"but how do i list them all out in memo1 "

sorry for you , I tried to help, but learn how to program a loop and a basic windows application first, before trying complicate things mangling in the Registry.
Thanks.

any other helpers ?

Here is something I did for Project JEDI which orginally did HKCU, I changed it to HKLM. Simple requires a TMemo and a CommandButton. Also note it indents the branches.
Hope this of some use for solving your problem
Kevin

uses registry ;
...
procedure TEnumuateRegBranch.cmdStartClick(Sender: TObject);
var
  indent: Integer ;
  iMatches: Integer ;
  procedure EnumAllKeys( hkey: THandle ) ;
  var
    l: TStringList ;
    n: Integer ;
  begin
   Inc(indent, 2) ;
   with Tregistry.Create do
   try
     RootKey := hkey;
     OpenKey( EmptyStr, false ) ;
     l := TStringLIst.Create ;
     try
       GetKeynames(l) ;
       CloseKey ;
       for n := 0 To l.Count-1 do
       begin
         Memo1.lines.add( StringOfChar(' ',indent) +l [n]) ;
         try
          if CompareStr('CurrentVersion',L.Strings[n]) = 0 then
            Inc(iMatches) ;
         except
         end ;
         if OpenKey( l[n], false ) then
         begin
           EnumAllKeys( CurrentKey ) ;
           CloseKey ;
         end ;
       end ;
     finally
       l.Free
     end;
   finally
     Free ;
   end;
   Dec(indent, 2) ;
  end;
begin
  iMatches := 0 ;

  { Searches Key and Values for "CurrentVersion" while traversing. }

  Memo1.Clear ;
  //Memo1.lines.add('Keys under HKEY_CURRENT_USER') ;
  Memo1.lines.add('Keys under HKEY_LOCAL_MACHINE') ;
  indent := 0;
  cmdStart.Enabled := False ;
  cmdClose.Enabled := False ;

  try
    cursor := crHourGlass ;
    Memo1.Lines.BeginUpdate ;
    //EnumAllKeys( HKEY_CURRENT_USER );
    EnumAllKeys( HKEY_LOCAL_MACHINE );
    iRanIt := True ;
  finally
    Memo1.Lines.EndUpdate ;
    Cursor := crDefault ;
    cmdStart.Enabled := True ;
    cmdClose.Enabled := True ;
  end ;

  if iMatches >0 then
    ShowMessage('Found ' + IntToStr(iMatches) + ' of "CurrentVersion"')
    else
      ShowMessage('Did not find CurrentVersion') ;
end;

doesn't work, your 'iRanIt' isn't declared as a variable. i'll simply things, you need to use onlu button1 and memo1. when i click button1, i want all the keys under HKLM/Software listed out in memo1.

It does work!
Remove any references to 'iRanIt', it served a purpose outside of what we are doing here.

Here it is again, I removed references to the Command button and the 'iRanIt'. Ran it in a new project and functioned perfectly.


This is fairly simple recursive code. If you need any explanations of the code let me know. Always help to assist.


procedure TForm1.ReadBranchs;
var
 indent: Integer ;
 procedure EnumAllKeys( hkey: THandle ) ;
 var
   l: TStringList ;
   n: Integer ;
 begin
  Inc(indent, 2) ;
  Application.ProcessMessages ;
  with Tregistry.Create do
  try
    RootKey := hkey;
    OpenKey( EmptyStr, false ) ;
    l := TStringLIst.Create ;
    try
      GetKeynames(l) ;
      CloseKey ;
      for n := 0 To l.Count-1 do
      begin
        Memo1.lines.add( StringOfChar(' ',indent) +l [n]) ;
        if OpenKey( l[n], false ) then
        begin
          EnumAllKeys( CurrentKey ) ;
          CloseKey ;
        end ;
      end ;
    finally
      l.Free
    end;
  finally
    Free ;
  end;
  Dec(indent, 2) ;
 end;
begin
  Memo1.Clear ;
  Memo1.lines.add('Keys under HKEY_LOCAL_MACHINE') ;
  indent := 0;
  try
    cursor := crHourGlass ;
    Memo1.Lines.BeginUpdate ;
    EnumAllKeys( HKEY_LOCAL_MACHINE );
  finally
    Memo1.Lines.EndUpdate ;
    Cursor := crDefault ;
  end ;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ReadBranchs ;
end;

i haven't try it out but i know it won't work most probably by looking at this

procedure TForm1.Button1Click(Sender: TObject);
begin
 ReadBranchs ; <--- got such code ?
end;

Yes its got such code. Why don't you try it? I made an effort to assist you, not for points but to assist a fellow programmer, points are secondary. So its up to you to either try it or not. Nuff said.

And if we were looking at just points, this is worth more then 50 IMHO.

i got to work, will try later during work time. points is ok, i can increase them to 75. :)

Tyfing,

Additional points are up to you. My reward is to know you got assistance for your question.

Cheers
Kevin

tyfing:
This old question needs to be finalized -- accept an answer, split points, or get a refund.  For information on your options, please click here-> http:/help/closing.jsp#1
EXPERTS:
Post your closing recommendations!  No comment means you don't care.