Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , ОС и Железо , Переменные окружения

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{*********************************************}
 { 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 = '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 }

Статья Выставить системные переменные среды раздела ОС и Железо Переменные окружения может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Переменные окружения ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
18.02.2020 18:51:01/0.0024139881134033/0