关于添加环境变量（delphi）

Windows 提供了API函数SetEnvironmentVariable，不过这个函数只能修改当前进程的环境变量，而不能修改其他进程和系统的变量。
要修改系统的环境变量，需要修改注册表SYSTEM\CurrentControlSet\Control\Session Manager\Environment下的项，然后发送WM_SETTINGCHANGE消息。
添加Registry单元

procedure SetSystemEnvironmentVariable(const name, value: string);
var
     rv: DWORD;
begin
     with TRegistry.Create do
     try
     RootKey := HKEY_LOCAL_MACHINE;
     OpenKey('SYSTEM\CurrentControlSet\Control\Session ' +
     'Manager\Environment', False);
     WriteString(name, value);
     SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LParam
     (PChar('Environment')), SMTO_ABORTIFHUNG, 5000, rv);
     finally
     Free
     end
end;