请问如何显示注册表的run项里面所有值..

Question

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
如何显示这里的所有值.因为是不确定的.要用什么东东来表示???看了下自带的注册表类.好像没有读某一个项下面所有值的...

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  k,k1,v:string;
  key:TRegistry;
  s:TStringList;
  i:integer;
begin
  k:='SOFTWARE\Microsoft\Windows\CurrentVersion\Run';
 key:=TRegistry.create(KEY_READ);
 s:=TStringList.Create;
  key.RootKey:=HKEY_LOCAL_MACHINE;
  if key.OpenKey(k,false) then
  begin
    key.GetValueNames(s);
    for i:=0 to s.Count-1 do
    begin
       k1:=s.Strings[i];
       Memo1.Lines.Add(key.ReadString(k1));
    end;
  end;
  key.CloseKey;
  key.Free;
  s.Free;
end;