有没有网络连接

  if InternetCheckConnection('http://192.168.0.5/', 1, 0) then
  begin  //Dialogs, ComCtrls, StdCtrls,   wininet;
    showmessage('网络已经连接');
  end
  else
  begin
    showmessage('没有网络连接，请拨号登陆internet');
  end;