如何在Delphi中實(shí)現(xiàn)注冊表的讀寫？

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; // 關(guān)閉主鍵

Destroy; // 釋放內(nèi)存

end;

end;

運(yùn)行截圖：