Delphi 判断网络是否连通


uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetGetConnectedState(nil, 0) then ShowMessage('已连接')
else
ShowMessage('已断开');

end;
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678