Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 15.10.2009, 19:27   #1
ikot
Пользователь
 
Регистрация: 29.09.2008
Сообщений: 56
По умолчанию Поменять значение ключа в реестре

На форме есть две кнопки. Как сделать так, чтобы при нажатии на одну из них в ветке реестра
HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Internet settings поменялся ключ ProxyEnable, а именно получил значение, символизирующее о неактивности прокси-сервера.

При нажатии на другую кнопку нужно наоборот - включить прокси-сервер.
ikot вне форума Ответить с цитированием
Старый 15.10.2009, 19:36   #2
Izhic
Форумчанин
 
Аватар для Izhic
 
Регистрация: 08.10.2008
Сообщений: 667
По умолчанию

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
Izhic вне форума Ответить с цитированием
Старый 15.10.2009, 19:41   #3
ikot
Пользователь
 
Регистрация: 29.09.2008
Сообщений: 56
По умолчанию

А разве это "проконает", там же тип DWORD, а вы пользуетесь WriteString?
ikot вне форума Ответить с цитированием
Старый 15.10.2009, 19:45   #4
Izhic
Форумчанин
 
Аватар для Izhic
 
Регистрация: 08.10.2008
Сообщений: 667
По умолчанию

Ну я же не смотрел что там

Просто поменяйте на ваш тип
Reg.WriteInteger ( 'DWORD' , StrToInt ( Edit1.Text ) );
Don't worry be happy
Izhic вне форума Ответить с цитированием
Старый 15.10.2009, 19:52   #5
ikot
Пользователь
 
Регистрация: 29.09.2008
Сообщений: 56
По умолчанию

Цитата:
Сообщение от Izhic Посмотреть сообщение
Ну я же не смотрел что там

Просто поменяйте на ваш тип
Reg.WriteInteger ( 'DWORD' , StrToInt ( Edit1.Text ) );
Извините, может я не понял, но первый параметр точно DWORD?
ikot вне форума Ответить с цитированием
Старый 15.10.2009, 20:00   #6
Izhic
Форумчанин
 
Аватар для Izhic
 
Регистрация: 08.10.2008
Сообщений: 667
По умолчанию

Верно говорите, там :'ProxyEnable'
Don't worry be happy
Izhic вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подскажите как поменять последнее значение на предпоследнее zander Microsoft Office Excel 2 29.09.2009 18:20
Значение "По умолчанию" в реестре RamireZ Общие вопросы Delphi 0 15.05.2009 19:56
вывод первичного ключа ZBoris SQL, базы данных 3 09.02.2009 17:38
Ввод ключа! }{oт@бь)ч Общие вопросы Delphi 9 08.02.2009 12:11
Проверка ключа в реестре Marsik Помощь студентам 5 24.04.2008 17:46


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840