InternetGetConnectedState判断无效?为什么??

gyx999 2003-04-17 09:30:40
我把网线拔了,但还是显示'Connected through LAN'
我试了很多方法,但都没办法判断网络是否通。
如果用InternetCheckConnection是可以,但在win98下会出现错误!

procedure TForm1.Button3Click(Sender: TObject);
Var
ConnectedState : DWord;
begin
if InternetGetConnectedState(@ConnectedState, 0) then
begin

if INTERNET_CONNECTION_MODEM and ConnectedState =
INTERNET_CONNECTION_MODEM then
ShowMessage('Connected through Modem');
if INTERNET_CONNECTION_PROXY and ConnectedState =
INTERNET_CONNECTION_PROXY then
ShowMessage('Proxy server configured');
if INTERNET_CONNECTION_LAN and ConnectedState =
INTERNET_CONNECTION_LAN then
ShowMessage('Connected through LAN');
end
else
ShowMessage('Not connected');
end;
...全文
134 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
gyx999 2003-04-18
  • 打赏
  • 举报
回复
难道没有办法吗
gyx999 2003-04-18
  • 打赏
  • 举报
回复
不行!!!!
brallow 2003-04-18
  • 打赏
  • 举报
回复
UPUPUP
hch_45 2003-04-18
  • 打赏
  • 举报
回复
procedure TForm1.Button3Click(Sender: TObject);
Var
ConnectedState : DWord;
begin
ConnectedState:=INTERNET_CONNECTION_MODEM +INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
if InternetGetConnectedState(@ConnectedState, 0) then
begin

if INTERNET_CONNECTION_MODEM and ConnectedState =
INTERNET_CONNECTION_MODEM then
ShowMessage('Connected through Modem');
if INTERNET_CONNECTION_PROXY and ConnectedState =
INTERNET_CONNECTION_PROXY then
ShowMessage('Proxy server configured');
if INTERNET_CONNECTION_LAN and ConnectedState =
INTERNET_CONNECTION_LAN then
ShowMessage('Connected through LAN');
end
else
ShowMessage('Not connected');
end;

试试...

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧