delphi 裡有 TRegistry 類，提供了對登錄檔的讀寫操作，在使用之前，需要uses System.Win.Registry （或是 Registry）。
以下是示例程式碼：
procedure TForm1.Button1Click(Sender: TObject);
var
ARegistry: TRegistry;
begin
ARegistry := TRegistry.Create;
with ARegistry do
RootKey := HKEY_CURRENT_USER;
if OpenKey("Environment",false) then
memo1.lines.add("Path："+ReadString("Path"));
memo1.lines.add("MYSQL_HOME："+ReadString("MYSQL_HOME"));
end;
CloseKey; // 關閉主鍵
Destroy; // 釋放記憶體
執行截圖：
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;
執行截圖：