Выставить системные переменные среды

Советы » Переменные окружения » Выставить системные переменные среды

{*********************************************}
 { Set Global Environment Function             }
 { Coder : Kingron,2002.8.6                    }
 { Bug Report : Kingron@163.net                }
 { 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 = 'SystemCurrentControlSetControlSession ManagerEnvironment'; 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 }

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com