delphi7 InternetSetOption 设置进程中的代理为空

Delphi 7 中的 `InternetSetOption` 函数用于设置 Win32 API 中与 Internet Explorer 或其他 Internet 应用程序相关的选项，包括网络连接配置。如果你想要在 Delphi 7 的应用中设置进程的 Internet 连接不通过代理服务器，你可以使用 `INTERNET_OPTION_PROXY` 和 `INTERNET_OPEN_TYPE_DIRECT` 来实现。

以下是一个简单的示例，展示了如何使用 `InternetSetOption` 来关闭代理：

uses
  Internet;

function SetProxyToDirect(const hInternet: HINTERNET): boolean;
var
  lpszProxyOverride: string;
begin
  // 初始化选项值为代理服务器的空字符串
  lpszProxyOverride := '';

  // 设置选项结构体
  var ProxyOptionStruct: TINTERNET_PROXY_INFO;
  ZeroMemory(@ProxyOptionStruct, SizeOf(TINTERNET_PROXY_INFO));
  ProxyOptionStruct.fAutoDetect = False;  // 不自动检测代理
  ProxyOptionStruct.lpszProxy = lpszProxyOverride;  // 指定代理为空
  ProxyOptionStruct.lpszProxyBypass = '';  // 代理绕过地址

  // 设置选项
  Result := InternetSetOption(hInternet, IOP箕_PROXY, @ProxyOptionStruct, SizeOf(ProxyOptionStruct));

  if not Result then
  begin
    // 如果设置失败，记录错误信息
    ShowMessage('Failed to set proxy to direct - Error code: ' + IntToStr(GetLastError()));
    Result := False;
  end;
end;

// 使用函数关闭代理
var
  hInternet: HINTERNET;
begin
  hInternet := InternetOpen('No Proxy', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
  try
    // ... 进行网络操作
    SetProxyToDirect(hInternet);  // 关闭代理
    // ... 其他互联网操作
  finally
    InternetCloseHandle(hInternet);
  end;