在delphi 中如何将路径写入到写入到系统的path里？

Question

在delphi 中如何将路径写入到写入到系统的path里，我想在windows xp 启动后，环境变量path 中有我的路径: c:\abc;
即：c:\windows;c:\abc;....

Answer 1

我的意思就是在delphi中，如何更改系统的path 路径？

Answer 2

这个path在注册表中的位置是 HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment，可以先修改它，再发送WM_SETTINGCHANGE消息，下面这个函数给你参考    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;