如何通过程序设置或者修改win2000,win98的环境变量 ??

[gototop99]

如何通过程序设置或者修改win2000,win98的环境变量 ??

[yansea]

SetEnvironmentVariable 设置环境变量

[tpmao]

UP！STUDYING！！！！！UP！STUDYING！！！！！UP！STUDYING！！！！！

[sysu]

Kingron老大写的一个：

{*********************************************}
{ Set Global Environment Function }
{ Coder : Kingron,2002.8.6 }
{ Bug Report : [e-mail] }
{ Test OK For Windows 2000 Advance Server }
{ Parameter: }
{ Name : environment variable name }
{ Value: environment variable Value }
{ Ex: SetGlobalEnvironment('MyVar','OK') }
{*********************************************}

function SetGlobalEnvironment(const Name, Value: string;
const User: Boolean = True): Boolean;
resourcestring
REG_MACHINE_LOCATION = 'System\CurrentControlSet\Control\Session Manager\Environment';
REG_USER_LOCATION = 'Environment';
begin
with TRegistry.Create do
try
if User then { User Environment Variable }
Result := OpenKey(REG_USER_LOCATION, True)
else { System Environment Variable }
begin
RootKey := HKEY_LOCAL_MACHINE;
Result := OpenKey(REG_MACHINE_LOCATION, True);
end;
if Result then
begin
WriteString(Name, Value); { Write Registry for Global Environment }
{ Update Current Process Environment Variable }
SetEnvironmentVariable(PChar(Name), PChar(Value));
{ Send Message To All Top Window for Refresh }
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar('Environment')));
end;
finally
Free;
end;
end; { SetGlobalEnvironment }

[gototop99]

up

[Kingron]

楼主还不结帖?还UP？

[blueshu]

up

[gototop99]

to , Kingron

以上回答可不可以啊？？？？

[Kingron]

怎么不可以？