AI摘要
文章提供了一个Delphi语言编写的函数，用于设置WebBrowser和IE共同使用代理。函数名为qiehuanproxy，接受一个代理服务器地址和端口号作为参数，通过设置TInternetProxyInfo结构体和调用UrlMkSetSessionOption函数来实现代理设置。
user urlmon,wininet;
procedure qiehuanproxy(const proxyname:string);
var info:TInternetProxyInfo;
lngth:integer;
h:integer;
proxy :pChar;
bypass :PChar;
begin
proxy:=pchar(proxyname);//proxy address:port
bypass:=pChar('');
info.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;
info.lpszProxy :=proxy;
info.lpszProxyBypass:=bypass;
lngth:=sizeof(info);
h:=UrlMkSetSessionOption(INTERNET_OPTION_PROXY ,@info,lngth,0);
end;
