请大家帮忙：怎么才能读取注册表中某一个键下的所有选项呢。谢谢拉

Question

TRegistry
  GetKeyNames
  GetValueNames

Answer 1

从注册表关键字中读出相关的数据值 
在Tregistry类中还提供了与Write方法相对应用的用来读出与当前关键字相关的数据值。常用方法的原型定义如下： 
founction ReadString(const Name : string) : string; 
founction ReadInteger(const Name : string) : Integer; 
founction ReadFloat(const Name : string) : Double; 
founction ReadTime(const Name : string) : TdateTime; 
founction ReadBool(const Name) : Boolean; 
示例程序如下： 
procedure TForm1.Button1Click(Sender: TObject); 
var 
MyReg : TRegistry; 
begin 
MyReg := TRegistry.Create; 
MyReg.RootKey := HKEY_LOCAL_MACHINE; 
try 
if not MyReg.OpenKey('SOFTWARE',FALSE) then ; 
if not MyReg.KeyExists('Passwd') then ; 
if not MyReg.OpenKey('SOFTWAREPasswd',FALSE) then ; 
Label1.Caption := MyReg.ReadString('pwd1'); 
Label2.Caption := IntToStr(MyReg.ReadInteger('pd2')); 
MyReg.CloseKey; 
finally 
MyReg.Free; 
end; 
end;

Answer 2

var
  Reg: TRegistry;
  KeyNames, ValueNames: TStringList;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;  //这里可能需要按自己的需要来修改
    if Reg.OpenKey(……,False) then     //在省略号处填入要读取的键名
    begin
      KeyNames := TStringList.Create
      try
        Reg.GetKeyNames(KeyNames);
        ……                            //进行需要的操作
      finally
        KeyNames.Free;
      end;      ValueNames := TStringList.Create
      try
        Reg.GetValueNames(ValueNames);
        ……                            //进行需要的操作
      finally
        KeyNames.Free;
      end;
    end;
  finally
    Reg.Free;
  end;
end;

Answer 3

谢谢大家可是我还是有点弄不懂在楼上的哪个老兄中说的KeyNames, ValueNames: TStringList;那个TStringlist是啥含义呀是列表框吗。麻烦各位了。

Answer 4

TStringList顾名思义，就是string的集合，列表。也就是这个对象中可以有一堆string。