Loading... <pre class="brush:delphi;"> 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; </pre> 相关文章 无相关文章 Last modification：February 16th, 2010 at 07:32 pm © 允许规范转载