وضعية بطاقة الشبكة نشطة أو غير نشطة

[hamam2008]

يسم الله الرحمن الرحيم
السلام عليكم و رحمت الله و بركاته
بعد التحية :
كيف يمكن معرفة حالة بطاقة الشبكة برمجيا هل هي في حالة نشطة او غير نشطة
أي active//desactive

[kachwahed]

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

PHP كود :

const
   INTERNET_CONNECTION_MODEM          = 1;
   INTERNET_CONNECTION_LAN            = 2;
   INTERNET_CONNECTION_PROXY          = 4;
   INTERNET_CONNECTION_MODEM_BUSY     = 8;

function InternetGetConnectedState(lpdwFlags: LPDWORD;
         dwReserved: DWORD): BOOL; stdcall; external 'WININET.DLL';

function IsConnectedToInternet() : boolean;
var
   dwConnectionTypes: Integer;
begin
     try
        dwConnectionTypes := INTERNET_CONNECTION_MODEM +
                             INTERNET_CONNECTION_LAN +
                             INTERNET_CONNECTION_PROXY;

        if InternetGetConnectedState(@dwConnectionTypes, 0) then
           Result := true
        else
            Result := false;
     except
           Result := false;
     end;
end;

// ---------
// Usage:
// ---------

if IsConnectedToInternet then
   // do something, we are connected
else
    // No active connection 


بالتوفيق.

[hamam2008]

با رك الله فيك اخي على الإجابة لكن اعلقتني رسالة في الدلفي بعد التنفيذ

كود :

Erreur] Unit1.pas(56): Déclaration attendu(e) mais 'IF' trouvé(e) [Erreur fatale] Project2.dpr(5): Impossible de compiler l'unité utilisée 'Unit1.pas'

[kachwahed]

با رك الله فيك اخي على الإجابة لكن اعلقتني رسالة في الدلفي بعد التنفيذ

الأسطر الأخيرة مثال حول كيفية الاستخدام، انسخ الـ function فقط.
كن مطمئن. لا أطرح الأكواد قبل أن أجربها.

[hamam2008]

بارك الله فيك اخي الكريم و جزاك الله كل خير الكود 100%