一句話判斷網絡是否聯通

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if InternetGetConnectedState(nil, 0) then ShowMessage('已連接配接');

end;