求 设置环境变量的代码，要求全局环境变量，即时生效，对任何用户都有效。 ( 积分: 50 )

L

looyo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-07

• #1

求 设置环境变量的代码，要求全局环境变量，即时生效，对任何用户都有效。

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-07

• #2

建立个服务程序，全局环境设置什么的，都交给服务程序管理。其他程序从服务程序这里获得它们。

 

D

dirk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-07

• #3

FReg.WriteExpandString('环境变量名称','环境变量值');
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('Environment')));

 

风

风铃夜思雨

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-07

• #4

Reg.RootKey := HKEY_LOCAL_MACHINE;
KeyName := 'SYSTEM/CurrentControlSet/Control/Session Manager/Environment/';
If Reg.OpenKey(KeyName, false) Then Reg.WriteExpandString('环境变量名称','环境变量值');
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LParam(PChar('Environment')), SMTO_ABORTIFHUNG, 5000, RV);

 

晶

晶晶

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-04-08

• #5

补充：用户环境变量存放在
HKEY_CURRENT_USER/Environment中