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