一句話判斷網路是否聯通

uses WinInet;

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