کنترل وصل بودن کامپیوتر به شبکه

[nasr]

سلام
آقاچگونه میشه فهمید که یک کامپیوتر به شبکه وصل است یا نه من این برنامه را از یکی گرفتم ولی اگه 01$=01$ باشه همیشه اعلام وصل بودن میده (حتی اگه قطع باشه) و اگر 02$=01$ باشه همیشه اعلام قطع بودن میده
با تشکر


if (GetSystemMetrics(SM_NETWORK) AND $01 = $01) then
ShowMesseg:=’<PC is attached to network>’a
else
ShowMesseg:=’<PC is not attached to network>’;a

[Delphi-Clinic]

USES
WinInet;
..
..

function InternetConnected: Boolean;
CONST
// local system uses a modem to connect to the Internet.
INTERNET_CONNECTION_MODEM = 1;
// local system uses a local area NETWORK to connect to the Internet.
INTERNET_CONNECTION_LAN = 2;
// local system uses a proxy server to connect to the Internet.
INTERNET_CONNECTION_PROXY = 4;
// local system's modem is busy with a non-Internet connection.
INTERNET_CONNECTION_MODEM_BUSY = 8;

VAR
dwConnectionTypes : DWORD;
BEGIN
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes,0);
END;

[nasr]

سلام
آقا منظور من از شبکه همون شبکه داخلی بین دو تا کامپیوتر بود نه اینترنت
ممنونم