كود منع استخدام البرنامج من دون آنترنت

[فهد الشملاني]

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


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

[rahiche]

كود :

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!');


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

[I3CT]

الفحص المبدئي يكون بـــ 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; 


[Mr.DOS]

السلام عليكم

uses

كود :

winInet

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

كود :

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

شاهد المرفق