請問一下 想將讀取 HKEY_CURRENT_USER\software\ 底下的所有機碼(機碼的內容及子機碼不用讀出) 例如 :  AcerWirelessManager... Adobe Borland Birsgewell Classes ..... 並將這些資料放入,Grid 中 大概要用哪些個指令??    謝謝您      -------------------------------- 這一網站,真的不錯!!

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.

範例如下, 如果你要放在Grid上, 把Memo1的部份換成你要的即可

procedure TForm1.Button1Click(Sender: TObject);
var
  sKeyNames: TStringList;
  i: Integer;    begin
  with TRegistry.Create do
  begin
    RootKey := HKEY_CURRENT_USER;
    sKeyNames := TStringList.Create;
    try
      if OpenKey('software', FALSE) then
      begin
        // 取得 HKEY_CURRENT_USER\software\ 下所有Key值
        GetKeyNames(sKeyNames);
      end;
    finally
      Free;          if sKeyNames.Count > 0 then
      begin
        // 列出 HKEY_CURRENT_USER\software\ 下所有Key值, 並秀在Memo1上
        for i := 0 to sKeyNames.Count - 1 do
          Memo1.Lines.Add(sKeyNames.Strings[i]);
      end;          sKeyNames.Free;
    end;
  end;
end;

謝謝 Zard 這就是我要的,其它的我自己試試看!! -------------------------------- 這一網站,真的不錯!!

------
---------------------------------------
偶爾才來 KTOP ,交流條碼問題,在 FB [條碼標籤達人] 社團留言,感恩.

procedure TForm1.Button1Click(Sender: TObject);
  function _GetKeyNames(RootKey: DWORD; AKey: string): TStringList;
  var
    R: TRegistry;
  begin
    Result := TStringList.Create;
    R := TRegistry.Create;
    try
      R.RootKey := RootKey;
      if R.OpenKey(AKey, False) then
      begin
              R.GetKeyNames(Result);
         R.CloseKey;
      end;
    finally
      FreeAndNil(R);
    end;
  end;      function _GetValueNames(RootKey: DWORD; AKey: string): TStringList;
  var
    R: TRegistry;
  begin
    Result := TStringList.Create;
    R := TRegistry.Create;
    try
      R.RootKey := RootKey;
      if R.OpenKey(AKey, False) then
      begin
        R.GetValueNames(Result);
        R.CloseKey;
      end;
    finally
      FreeAndNil(R);
    end;
  end;    var
  L: TStringList;
begin
  L := _GetKeyNames(HKEY_CURRENT_USER, 'software');
  try
    ListBox1.Items.Text := L.Text;
  finally
    FreeAndNil(L);
  end;      L := _GetValueNames(HKEY_CURRENT_USER, 'software\borland\delphi\6.0');
  try
    ListBox2.Items.Text := L.Text;
  finally
    FreeAndNil(L);
  end;
end;