| 发表于:2007-03-01 10:56:492楼 得分:0 |
请记得uses wininet 以下是一个判断当前计算机是否联网的例子: procedure tform1.button1click(sender: tobject); begin if internetcheckconnection( 'http://www.yahoo.com/ ', 1, 0) then edit1.text:= 'connected ' else edit1.text:= 'disconnected '; end; | | |
|