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

[hamam2008]

يسم الله الرحمن الرحيم
السلام عليكم و رحمت الله و بركاته
بعد التحية :
كيف يمكن معرفة حالة بطاقة الشبكة برمجيا هل هي في حالة نشطة او غير نشطة
أي active//desactive
http://www.adjib.dj/assistance/images/activer_carte_reseau.jpg

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
جرب هذه:
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%