delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاتة

هل يمكنني برمجة كود بسيط يعمل خروج للبرنامج تلقائي آن لم يكن متصل بالآنترنت
تلقائي عند فتحة يتحقق من الانترنت آن كان متصل لايخرج
وآن كان غير متصل بالانترنت يخرجة تلقائي ..

كود :
https://www.youtube.com/watch?v=x1CSSMUrccU[CODE][/CODE]

if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
ShowMessage('Computer is attached to a network!')
else
ShowMessage('Computer is not attached to a network!');

يعطني آنه متصل وهو غير متصل ..

الفحص المبدئي يكون بـــ InternetGetConnectedState الموجودة في وحدة Wininet

كتالي:

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  lpdwFlags: DWORD;
begin
  lpdwFlags := 0;
  if InternetGetConnectedState(@lpdwFlags, 0) = TRUE then
    MessageBoxA(Handle, 'Connected.', 'Connection state', MB_ICONINFORMATION)
  else
    MessageBoxA(Handle, 'Not Connected', 'Connection state', MB_ICONINFORMATION);
end; 

لا تنسى اضافة تعريف الوحدة:

PHP كود :
uses Wininet; 

اما الفحص الخاص يكون بفحص توفر الموقع الخاص بك...
و هذا فحص لتوفر موقع قوقل على سبيل المثال:

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
const
  FLAG_ICC_FORCE_CONNECTION = 1;
begin
  if InternetCheckConnection('http://www.google.com', FLAG_ICC_FORCE_CONNECTION, 0) = TRUE then
    MessageBoxA(Handle, 'Connected.', 'Connection state', MB_ICONINFORMATION)
  else
    MessageBoxA(Handle, 'Not Connected', 'Connection state', MB_ICONINFORMATION);
end; 

السلام عليكم

uses

كود :
winInet

على فورم البرنامج(واجهة البرنامج) اضف الكود التالي

كود :
if (InternetGetConnectedstate(nil,0))= true then
شغل البرنامج else
application.terminate

شاهد المرفق

فهد الشملاني

rahiche

فهد الشملاني

I3CT

Mr.DOS