uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接'); end;
一句话判断网络是否联通
最新推荐文章于 2024-05-02 16:00:21 发布
uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if InternetGetConnectedState(nil, 0) then ShowMessage('已连接'); end;