اقدم لكم بعض اكود لغة الدلفي

[momo2001]

procedure TForm1.Button1Click(Sender: TObject);
beg in if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle) then
MessageDlg( ' لايوجد إتصال ', mtError, [mbOk], 0);
end;