一句话判断网络是否联通

uses WinInet;

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

posted on 2009-03-08 22:39  万一  阅读(8360)  评论(17)  编辑  收藏

标签：8360,判断,联通,网络,TObject,InternetGetConnectedState,ShowMessage
来源： https://blog.51cto.com/u_14617575/2747993