//-----------------------------------------------
//记得引用 wininet 单元 【程序编程相关:信使网络通真能引领互联网信息发布潮流吗?】 【推荐阅读:Eclipse+Jboss使用小问题总结】//----------------------------------------------- 【扩展信息:sar在维护UNIX中的使用讲解】 uses wininet //---------------------------------------------- //定义要使用的函数 //---------------------------------------------- function getproxyinformation: string; var proxyinfo: pinternetproxyinfo; len: longword; begin result := ´´; len := 4096; getmem(proxyinfo, len); try if internetqueryoption(nil, internet_option_proxy, proxyinfo, len) then if proxyinfo^.dwaccesstype = internet_open_type_proxy then begin result := proxyinfo^.lpszproxy end; finally ... 下一页