将运行程序前检测网络连接的源代码添加到delphi程序中。

//判断是否连接网络。

函数ISInternetConnected():Boolean；

常数

调制解调器= 1；

LAN = 2；

代理= 4；

MODEM _ BUSY = 8；

定义变量

dwConnectionTypes:DWORD；

开始

dwConnectionTypes:=调制解调器+局域网+代理；

结果:= InternetGetConnectedState(@ dwConnectionTypes，0)；

结束；