如何在Delphi中实现注册表的读写

如题所述

delphi 里有 TRegistry 类，提供了对注册表的读写操作，在使用之前，需要uses System.Win.Registry （或是 Registry）。

以下是示例代码：

procedure TForm1.Button1Click(Sender: TObject);
var
  ARegistry: TRegistry;
begin
  ARegistry := TRegistry.Create;
  with ARegistry do
  begin
    RootKey := HKEY_CURRENT_USER;
    if OpenKey('Environment',false) then
    begin
      memo1.lines.add('Path：'+ReadString('Path'));
      memo1.lines.add('MYSQL_HOME：'+ReadString('MYSQL_HOME'));
    end;
    CloseKey; // å…³é—­ä¸»é”®
    Destroy; // é‡Šæ”¾å†…å­˜
  end;
end;

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fsmms8222vv2q7m2q2m.html