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

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

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

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

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

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

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

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

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

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

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


22:41.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.