我想做一個簡單瀏覽器，請問如何動態設定TWebBrowser的proxy

我想做一個簡單瀏覽器，請問如何動態設定TWebBrowser的proxy    TWebBrowser 是没有proxy属性的，如果想动态设置访问地址的proxy 可以在连接地址中设置： 如下：    WebBrowser.Navigate('http://www.china.com:8080'); 风花雪月 e梦情缘

------
风花雪月 e梦情缘

找到一個, 不過不是直接設定 proxy 而是叫出 IE 的設定對話方塊

uses ActiveX;
  
const
  HTMLID_FIND       = 1;
  HTMLID_VIEWSOURCE = 2;
  HTMLID_OPTIONS    = 3;
  
procedure TForm1.InvokeIE(Value: Integer);
const
  CGID_WebBrowser: TGUID = '{ED016940-BD5B-11cf-BA4E-00C04FD70816}';
var
  CmdTarget: IOleCommandTarget;
  vaIn, vaOut: OleVariant;
  PtrGUID: PGUID;
begin
  New(PtrGUID);
  PtrGUID^ := CGID_WebBrowser;
  if WebBrowser1.Document <> nil then
    try
      WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
      if CmdTarget <> nil then
        try
          CmdTarget.Exec( PtrGUID, Value, 0, vaIn, vaOut);
        finally
          CmdTarget._Release;
        end;
    except
    // Nothing
    end;
  Dispose(PtrGUID);
end;    procedure TMainForm.InvokeIE1Click(Sender: TObject);
begin
  InvokeIE(HTMLID_OPTIONS);
end;

--- --<-<-<@

那麼,除了TWebBrowser以外有沒有其他代用品. 不過,HAGAR的方法也達到一半目的. 我那些用戶幾乎連IE也不會用.

這篇有相關資料 How To Programmatically Query and Set Proxy Settings Under Internet Explorer http://support.microsoft.com/default.aspx?scid=kb;en-us;226473

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.