delphi 获取与设置系统环境变量

function GetEnvVariable(Name: string; User: Boolean = True): string;

var

Str: array[0..255] of char;

begin

with TRegistry.Create do

try

if User then

begin

RootKey := HKEY_CURRENT_USER;

//OpenKey('Environment', False);

OpenKeyReadOnly('Environment', False);

end

else

begin

RootKey := HKEY_LOCAL_MACHINE;

//OpenKey('SYSTEM\CurrentControlSet\Control\Session ' +

// 'Manager\Environment', False);

OpenKeyReadOnly('SYSTEM\CurrentControlSet\Control\Session ' +

'Manager\Environment', False);

end;

Result := ReadString(Name);

ExpandEnvironmentStrings(PChar(Result), Str, 255);

Result := Str;

finally

Free;

end;

procedure SetEnvVariable(Name, Value: string; User: Boolean = True);

var

rv: DWORD;

begin

with TRegistry.Create do

try

if User then

begin

RootKey := HKEY_CURRENT_USER;

OpenKey('Environment', False);

WriteString(Name, Value);

end

else

begin

RootKey := HKEY_LOCAL_MACHINE;

OpenKey('SYSTEM\CurrentControlSet\Control\Session ' +

'Manager\Environment', False);

end;

WriteString(Name, Value);

SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LParam

(PChar('Environment')), SMTO_ABORTIFHUNG, 5000, rv);

finally

Free;

end;

推荐分享