一句话判断网络是否联通
uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接'); end;posted on 2009-03-08 22:39 万一 阅读(8360) 评论(17) 编辑 收藏
2023-10-18 13:53:22
uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接'); end;posted on 2009-03-08 22:39 万一 阅读(8360) 评论(17) 编辑 收藏
下一篇:指针的运算