|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.10.2009, 20:27 | #1 |
Пользователь
Регистрация: 29.09.2008
Сообщений: 56
|
Поменять значение ключа в реестре
На форме есть две кнопки. Как сделать так, чтобы при нажатии на одну из них в ветке реестра
HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Internet settings поменялся ключ ProxyEnable, а именно получил значение, символизирующее о неактивности прокси-сервера. При нажатии на другую кнопку нужно наоборот - включить прокси-сервер. |
15.10.2009, 20:36 | #2 |
Форумчанин
Регистрация: 08.10.2008
Сообщений: 668
|
var
R : TRegistry; StrName : String; begin StrName:='' R := TRegistry.Create; try if not R.OpenKey( 'HKEY_CURRENT_USER\Software\Microso f t\Windows\CurrentVersion\Internet settings', False ) then Exit; try R.WriteString( 'ProxyEnable', StrName ); finally R.CloseKey; end; finally R.Free; end; end;
Don't worry be happy
|
15.10.2009, 20:41 | #3 |
Пользователь
Регистрация: 29.09.2008
Сообщений: 56
|
А разве это "проконает", там же тип DWORD, а вы пользуетесь WriteString?
|
15.10.2009, 20:45 | #4 |
Форумчанин
Регистрация: 08.10.2008
Сообщений: 668
|
Ну я же не смотрел что там
Просто поменяйте на ваш тип Reg.WriteInteger ( 'DWORD' , StrToInt ( Edit1.Text ) );
Don't worry be happy
|
15.10.2009, 20:52 | #5 |
Пользователь
Регистрация: 29.09.2008
Сообщений: 56
|
|
15.10.2009, 21:00 | #6 |
Форумчанин
Регистрация: 08.10.2008
Сообщений: 668
|
Верно говорите, там :'ProxyEnable'
Don't worry be happy
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
подскажите как поменять последнее значение на предпоследнее | zander | Microsoft Office Excel | 2 | 29.09.2009 19:20 |
Значение "По умолчанию" в реестре | RamireZ | Общие вопросы Delphi | 0 | 15.05.2009 20:56 |
вывод первичного ключа | ZBoris | SQL, базы данных | 3 | 09.02.2009 17:38 |
Ввод ключа! | }{oт@бь)ч | Общие вопросы Delphi | 9 | 08.02.2009 12:11 |
Проверка ключа в реестре | Marsik | Помощь студентам | 5 | 24.04.2008 18:46 |