Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

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

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

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

Название: Выставить системные переменные среды
Дата публикации: 2004-09-09 (3122 Прочтено)

 
 

 

Page generation 0.032 seconds