Delphi 快速检测是否联网


use WinInet;

 //正确检测是否在线方法
 if InternetGetConnectedState(nil, 0) then
 begin
 Self.Caption := '在线';
 end
 else
 begin
 Self.Caption := '脱机';
 end;
经测试,和QQ检测是否在线基本相同。

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678