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

[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;