判断当前网络连接方式

2011-01-19 17:02:15 作者:闹猴在线 来源:闹猴在线 浏览次数:0 网友评论 0

 

{--判断当前网络连接方式
   判断结果 : MODEM、局域网、代理服务器方式--}
function ConnectionKind :boolean;
var
  flags: dword;
begin
  Result := InternetGetConnectedState(@flags, 0);
  if Result then
  begin
    if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
    begin
      showmessage('Modem');
    end;
    if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
    begin
      showmessage('LAN');
    end;
    if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
    begin
      showmessage('Proxy');
    end;
    if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
    begin
      showmessage('Modem Busy');
    end;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ConnectionKind;
end;

阿里通网络电话,中国最优秀的网络电话

[错误报告] [推荐] [收藏] [打印] [关闭] [返回顶部]

最新十条评论
  • 验证码:

最新图片文章

 

最新文章

 

日文章点击排行

周文章点击排行

 

月文章点击排行