delphi InternetSetOption 禁用代理

在Delphi中，`InternetSetOption` 是用于设置 Internet Explorer 或其他基于 Winsock 的应用程序的网络选项的方法。如果你想要禁用代理，你可以调用这个函数来更改 `INTERNET_OPTION_PROXY 设置`。以下是基本的步骤：

uses
  Windows,
  Internet;

var
  lpvOption: PByte;
  dwSize: DWORD;
  dwValue: DWORD;

begin
  // 初始化变量
  lpvOption := Pointer(0);
  dwSize := 0;

  // 获取当前的代理设置大小
  if InternetQueryOption(NULL, INTERNET_OPTION_PROXY, lpvOption, @dwSize) = ERROR_SUCCESS then begin
    // 如果成功，创建一个新的缓冲区来存储新的值
    lpvOption := AllocateMemory(dwSize + SizeOf(DWORD)); // 防止溢出，加上DWORD的大小
    if lpvOption <> nil then try
      // 将新值设为无代理（0 = 禁用代理）
      ZeroMemory(lpvOption^, dwSize);
      lpvOption^[dwSize] := SizeOf(DWORD); // 包含DWORD的大小，表示结束

      // 设置新选项
      dwValue := 0; // 无代理标识符
      InternetSetOption(NULL, INTERNET_OPTION_PROXY, lpvOption, dwSize);
    finally
      FreeMemory(lpvOption); // 释放内存
    end;
  end;
end;