Delphi7 webbrowser如何禁用代理，请给demo

在 Delphi7 中，使用 WebBrowser 控件（实际上是通过 WinInet 库提供的功能）禁用代理通常涉及设置 `TInternetConnectOptions` 结构。由于 Delphi7 并不直接支持 `TInternetConnectOptions`，我们可以通过间接的方式实现。以下是通过 `TWebBrowser` 的 `Navigate` 方法手动设置代理的一项示例：

uses
  ComObj,
  IndyCtrls;

type
  TWebBrowserOptions = interface(ISupportErrorInfo)
    ['{D64CF900-C08A-11D0-A4FE-00A0C90F2759}']
  end;

var
  WebBrowser: TWebBrowser;
  ProxyOptions: IWinInetHttpInfo;

function GetErrorInfo(pInterface: Pointer; dwInfoClass: DWord): HRESULT; stdcall;
implementation

// 实现 ErrorInfo 接口
function GetErrorInfo(pInterface: Pointer; dwInfoClass: DWord): HRESULT;
begin
  if pInterface is IWinInetHttpInfo then
    Result := IWinInetHttpInfo(pInterface).GetOptionValue(dwInfoClass, nil);
end;

initialization
try
  WebBrowser := CreateOleObject('InternetExplorer.Application');
  WebBrowser.Visible := True;

  // 创建一个 IWinInetHttpInfo 实例
  ProxyOptions := CreateOleObject('WinInet.WinHttpHttpInfo');

  // 设置 HTTP 请求选项，其中 `fNoProxyForLocalNet` 将关闭代理对于本地网络的连接
  ProxyOptions.SetOptionValue(WinHttpRequestOptionUseDefaultProxy, False);

  // 避免显示 "Internet Explorer" 消息框，当代理被更改时
  WebBrowser.ScriptErrorsSuppressed := True;

  // 现在导航到某个 URL 并应用新的代理设置
  WebBrowser.Navigate('http://www.example.com');
except
  on E: Exception do
    ShowMessage(E.Message);
finally
  WebBrowser.Quit;
  WebBrowser := Nil;
  ProxyOptions := Nil;
end;

请注意，这个示例并不适用于 Delphi 7 的所有环境，因为它依赖于 IndyCtrls 组件，这在 Delphi 7 中可能需要额外安装。如果不在 Delphi 7 的环境中，或者无法使用 IndyCtrls，你可以尝试直接使用 `WinInet` 函数，但这会更为复杂，因为涉及到更多的底层 API 调用。