起動中のIEのプロキシ設定の変更 (ID:44175)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちは、いつもお世話になります。

すでに起動しているIEについて、
プロキシのON/OFFの切り替えを行いたいです。

そこでレジストリの書き換え→WM_SETTINGCHANGEブロードキャストしたところ、
レジストリの書き換えは成功(レジストリエディタで確認)したものの、
起動中のIEのプロキシ設定は書き換わりませんでした。
(http://www.ugtop.com/spill.shtmlで確認)

そこで、一度、インターネットオプション画面を開いて閉じると、
反映される状況です。

ブロードキャストの仕方がまずいのでしょうか？
アドバイス頂けると助かります。よろしくお願いいたします。

開発環境:DelphiXE3 , Win7(64)
確認環境:Win7(64)-IE9 ,WinXp(32)-IE8
ターゲット:32ビット、64ビットとも。

//━━━プロキシON━━━
procedure TForm2.Button1Click(Sender: TObject);
var
  StrReg : String;
  reg    :  Tregistry;
begin
  StrReg := '\Software\Microsoft\Windows\CurrentVersion\Internet Settings';
  reg    :=   Tregistry.Create;
  reg.Rootkey  :=  HKEY_CURRENT_USER;
  if  reg.OpenKey(StrReg, false )then
  begin
    reg.WriteInteger('ProxyEnable',1);
    reg.WriteString('ProxyServer','123.123.123.132:8080');
    reg.WriteString('ProxyOverride','<local>');
    reg.CloseKey;
  end;
  reg.Free;
  SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar(StrReg)));
end;

//━━━プロキシOFF━━━
procedure TForm2.Button2Click(Sender: TObject);
var
  StrReg : String;
  reg    :  Tregistry;
begin
  StrReg := '\Software\Microsoft\Windows\CurrentVersion\Internet Settings';
  reg    :=   Tregistry.Create;
  reg.Rootkey  :=  HKEY_CURRENT_USER;
  if  reg.OpenKey(StrReg, false )then
  begin
    Reg.WriteInteger('ProxyEnable',0);
    Reg.DeleteValue('ProxyServer');
    Reg.DeleteValue('ProxyOverride');
    reg.CloseKey;
  end;
  reg.Free;
  SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Integer(PChar(StrReg)));
end;

←解決時は質問者本人がここをチェックしてください。

戻る