用Delphi检测IE使用的代理服务器

　　//-----------------------------------------------
　　 //记得引用 WinInet 单元
　　 //-----------------------------------------------
　　 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
　　 FreeMem(ProxyInfo);
　　 end;
　　 end;

　　procedure GetProxyServer(protocol: string; var ProxyServer: string;
　　 var ProxyPort: Integer);
　　 var
　　 i: Integer;
　　 proxyinfo, ps: string;
　　 begin
　　 ProxyServer := '';
　　 ProxyPort := 0;

　　proxyinfo := GetProxyInformation;
　　 if proxyinfo = '' then
　　 Exit;

　　protocol := protocol + '=';

　　i := Pos(protocol, proxyinfo);
　　 if i > 0 then
　　 begin
　　 Delete(proxyinfo, 1, i + Length(protocol));
　　 i := Pos(';', ProxyServer);
　　 if i > 0 then
　　 proxyinfo := Copy(proxyinfo, 1, i - 1);
　　 end;

　　i := Pos(':', proxyinfo);
　　 if i > 0 then
　　 begin
　　 ProxyPort := StrToIntDef(Copy(proxyinfo, i + 1, Length(proxyinfo) - i), 0);
　　 ProxyServer := Copy(proxyinfo, 1, i - 1)
　　 end
　　 end;
　　 //----------------------------------------------------------------
　　 //使用范例
　　 //----------------------------------------------------------------
　　 procedure TForm1.Button1Click(Sender: TObject);
　　 var
　　 ProxyServer: string;
　　 ProxyPort: Integer;
　　 begin
　　 GetProxyServer('http', ProxyServer, ProxyPort);
　　 if  ProxyPort=0 then
　　 begin
　　 ShowMessage('你的IE没有使用的代理服务器')
　　 end
　　 else
　　 Label1.Caption := ProxyServer;
　　 label2.Caption := IntToStr(ProxyPort);

　　end;