DELPHI 判断当前网络连接方式


本文整理自网络,侵删。

 DELPHI 判断当前网络连接方式
//添加单元 wininet
function ConnectionKind:BOOLean;
var
flags:DWORD;
begin
if InternetGetConnectedState(@flags,0) then // API函数
begin
if (flags and INTERNET_CONNECTION_MODEM)=INTERNET_CONNECTION_MODEM then //拨号
ShowMessage('modem');
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then //局域网
ShowMessage('lan');
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then //代理上网
showmessage('Proxy');
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then //不在线
showmessage('Modem Busy');
end ;
end;


{$R *.dfm}

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

相关阅读 >>

Delphi中使用低层钩子 屏蔽win、ctrl+esc、alt+tab、alt+f4

Delphi实现百度地图经纬度与地址互转

Delphi indy 10tidftp中的directorylisting使用

Delphi 判断目录是否有写入权限

Delphi 获取windows任务栏的高度

Delphi 调用极光推送服务端http api实例

Delphi 内进行音量控制及静音

Delphi 利用驱动最简单结束进程的方法

Delphi listview 实现进度条显示

Delphi禁止用鼠标拖动窗口的大小

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...