ViSiToR
Silver Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
euheny
Цитата:| а чего-нить на форуме есть по этому поводу ? |
Не встречал.
Цитата:| по-поводу смены переменных сред есть чего ? |
Есть...
Мне как то самому надо было, поэтому написал вот такую функцию:
(Где $KeyVal, определяется путь в реестре куда будет произведена запись, если 1, то в «Переменные среды пользователя», в противном случае в «Системные переменные»)
Код:
_SetEnvironment("NewEnv", "C:\MyPath", 1, 0)
Func _SetEnvironment($Name, $Value, $Replace=0, $KeyVal=0)
If $Name = "" Then Return SetError(1)
If $Value = "" Then Return SetError(2)
If $Replace <> 0 And $Replace <> 1 Then Return SetError(3)
Local $ReadEnv
Local $SystemRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
Local $UserRegKey = "HKEY_CURRENT_USER\Environment"
Local $RegKey = $SystemRegKey
If $KeyVal = 1 Then $RegKey = $UserRegKey
If $Replace = 1 Then
RegWrite($RegKey, $Name, "REG_SZ", $Value)
ElseIf RegRead($RegKey, $Name) = "" Then
RegWrite($RegKey, $Name, "REG_SZ", $Value)
EndIf
EnvUpdate()
EndFunc |
Правда не всегда обновляется система, иногда требуется перезапуск.
----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни! |
|
(уже конечно не надо) 
- Видимо нужно всё же на самом форуме запостить...
