在线等：注册表的操作

Question

怎样读出某一目录下的所有键名？比如SOFTWARE\Microsoft\Windows\CurrentVersion\Run
下的所有键名？

Answer 1

var zz:tregistry;qw:tstrings;
begin
memo1.Lines.Clear;
zz:=tregistry.Create;
zz.RootKey:=HKEY_LOCAL_MACHINE;
if zz.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',false) then
zz.GetvalueNames(memo1.Lines);

Answer 2

var zz:tregistry;qw:tstrings;
begin
memo1.Lines.Clear;
zz:=tregistry.Create;
zz.RootKey:=HKEY_LOCAL_MACHINE;
if zz.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',false) then
zz.GetvalueNames(memo1.Lines);

Answer 3

VAR 
    S:TSTRINGLIST;       RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);
    s := TStringList.Create;
    getkeynames(s);
    free;

Answer 4

var
  s                 : tstringlist;  with TRegistry.Create do                       
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);
    s := TStringList.Create;
    getkeynames(s);
    free;
  end;

Answer 5

接上面：for i:=0 to s.count-1 do
 showmessage(s[i]);

Answer 6

to：mrfanghansheng(☆☆☆木鱼☆☆☆) ：
你说的方法不行，程序没有反应