1,594
社区成员
发帖
与我相关
我的任务
分享如何检测局域网的主机是否已经连上internet?
公司采用局域网主机共享上网,但主机上网的时间不确定,因此我打算做个程序,运行时生成一个任务栏图标,MOUSE移到图标上便可通过hnit看到":)上网了"或者":(没上网",程序如下:
procedure TMainForm.Timer1Timer(Sender: TObject);
var
flags : DWord ;
Result : Boolean;
begin
Result := InternetGetConnectedState(@flags,0);
if Result then
CoolTrayIcon1.Hint := ':) 上网啦!'
else
CoolTrayIcon1.Hint := ':( 没上网!';
end;
但是程序在运行时,主机没有上网,也显示":)已上网",我将本机的网卡禁用才显示":)没上网"
请问这个InternetGetConnectedState函数用得对不对?应该用哪个?
procedure TMainForm.Timer1Timer(Sender: TObject);
var
flags : DWord ;
Result : Boolean;
begin
Result := InternetGetConnectedState(@flags,0);
if Result then
CoolTrayIcon1.Hint := ':) 上网啦!'
else
CoolTrayIcon1.Hint := ':( 没上网!';
end;
但是程序在运行时,主机没有上网,也显示":)已上网",我将本机的网卡禁用才显示":)没上网"
请问这个InternetGetConnectedState函数用得对不对?应该用哪个?
...全文
请发表友善的回复…
发表回复
missj 2004-03-14
- 打赏
- 举报
up
gxgxfish0813 2004-03-14
- 打赏
- 举报
你真是坦克？不可思议
huojiehai 2003-09-18
- 打赏
- 举报
以前有贴子
http://expert.csdn.net/Expert/topic/2197/2197187.xml?temp=.3350336
http://expert.csdn.net/Expert/topic/2197/2197187.xml?temp=.3350336
solonet 2003-09-18
- 打赏
- 举报
楼主，这个函数是用来检测本机网卡是否正常工作，不是用来检测是否上互联网的。
XXSingle 2003-09-18
- 打赏
- 举报
up
DelphiKey 2003-09-18
- 打赏
- 举报
你上面的写函数写的是，判断本机上没上网，还不是主机上没上网
tankerwang 2003-09-18
- 打赏
- 举报
up
tankerwang 2003-09-18
- 打赏
- 举报
To:DelphiKey()
那么应该用什么函数呢？
那么应该用什么函数呢？
tankerwang 2003-09-17
- 打赏
- 举报
没有回啊？
tankerwang 2003-09-17
- 打赏
- 举报
up!
