#32002/6/13 13:32:19
--在windows下是否能够上网的条件是看系统是否安装了winsock控件,那么判断网络是否连通就可以利用是否安装winsock控件为依据了。
在这里要用到smtp.u32的smhaswinsock函数;和winapi.u32的messagebox函数。
--编写代码如下:
reult:=smhaswinsock()
if result<>0 then permit:=messagebox(windowhandle,"无法上网","sorry",4)
编辑历史:[这消息被szujimmy编辑过(编辑时间2002-06-13 13:41:10)]