Как установить переменные окружения?

Содержание материала

Следующая простая подпрограмма создаёт новые значения в переменных окружения. Если переменной окружения не существует, то она создаётся. Если переменной окружения установить значение пустой строки, то переменная удаляется. Функция возвращает 0, если значение переменной установлено или переменная создана успешно, либо возвратит значение ошибки Windows вслучае неудачи. Обратите внимание, что размер пространства доступного для переменных окружения ограничен.

Code:

function SetEnvVarValue(const VarName,

VarValue: string): Integer;

begin

// Просто вызываем API функцию

if Windows.SetEnvironmentVariable(PChar(VarName),

PChar(VarValue)) then

Result := 0

else

Result := GetLastError;

end;

ЗАМЕЧАНИЕ: данный способ позволяет делать изменения в переменных окружения только для текущего процесса либо для дочерних процессов, порождённых текущим.

Для того, чтобы передать какую-либо переменную окружения в дочерний процесс просто:

1) Создайте новую переменную окружения при помощи SetDOSEnvVar.

2) Запустите новую программу.

А вот как выглядит пример передачи текущих переменных окружения + переменной FOO=Bar в дочерний процесс:

Code:

{ snip ... }

var

ErrCode: Integer;

begin

ErrCode := SetEnvVarValue('FOO', 'Bar');

if ErrCode = 0 then

WinExec('MyChildProg.exe', SW_SHOWNORMAL);

else

ShowMessage(SysErrorMessage(ErrCode));

end;

{ ... end snip }

Code:

{*********************************************}

{ Set Global Environment Function }

{ Coder : Kingron,2002.8.6 }

{ Bug Report : Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра. }

{ 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 }

Новые статьи

Ранние статьи

Как получить переменные окружения типа PATH и PROMPT?

Как установить переменные окружения?