R.Access := KEY_READ; 為何在 Delphi 2 不能使用呢 ? Delphi 5 就沒問題    是否在 delphi 2 有不同的指令, 也能達到與 Delphi 5 的相同功能.        Function Reg_GetKeyNames(RootKey : DWORD; AKey : String): TStringList; var   R: TRegistry; begin   Result := TStringList.Create;   R := TRegistry.Create;   Try     R.RootKey := RootKey;     R.Access := KEY_READ;     if R.OpenKey(AKey, False) then     begin       R.GetKeyNames(Result);       R.CloseKey;     end;   Finally     FreeAndNil(R);   End; end;    

現在幾乎沒有人用 Delphi 2, 所以幾乎沒有人能回答此問題 Delphi 2 的錯誤訊息是什麼 ? 貼上來大家看看, 或許還可以幫您推敲一下問題, 但是有什麼不同指令可用, 自己要尋找 (也可能根本沒有替換指令可用) 隨著版本提升, 可用 function 本來就愈來愈多, 舊版沒有相對指令可用很正常

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

不透過 TRegistry 單元的物件操作就可以了。 如：

function RegEnum(RootKey: HKEY; Name: String; var ResultList: String; const DoKeys: Boolean): boolean;
var
  i: integer;
  iRes: integer;
  s: String;
  hTemp: HKEY;
  Buf: Pointer;
  BufSize: Cardinal;
begin
  Result := False;
  ResultList := '';
  if RegOpenKeyEx(RootKey, PChar(Name), 0, KEY_READ, hTemp) = ERROR_SUCCESS then
  begin
    Result := True;
    BufSize := 1024;
    GetMem(buf, BufSize);
    i := 0;
    iRes := ERROR_SUCCESS;
    while iRes = ERROR_SUCCESS do
    begin
      BufSize := 1024;
      if DoKeys then
        iRes := RegEnumKeyEx(hTemp, i, buf, BufSize, nil, nil, nil, nil)
      else
        iRes := RegEnumValue(hTemp, i, buf, BufSize, nil, nil, nil, nil);
      if iRes = ERROR_SUCCESS then
      begin
        SetLength(s, BufSize);
        Move(buf^, s[1], BufSize);
        if ResultList = '' then
          ResultList := s
        else
          ResultList := Concat(ResultList, #13#10, s);
        inc(i);
      end;
    end;
    FreeMem(buf);
    RegCloseKey(hTemp);
  end;
end;    function RegEnumValues(RootKey: HKEY; Name: String; var ValueList: String): boolean;
begin
  Result := RegEnum(RootKey, Name, ValueList, False);
end;    function RegEnumKeys(RootKey: HKEY; Name: String; var KeyList: String): boolean;
begin
  Result := RegEnum(RootKey, Name, KeyList, True);
end;

完整源碼為 MiniReg 忘記在哪裡下載的。