اذا اراد احد ان يعرف ما اذا كان الكومبيوتر متصلا بالشبكة او لا
نستطيع ان من خلال تعليمة برمجية واحدة ان نحدد الحالة الراهنة
سنورد مثال برمجي بلفة ديلفي
فقط في حدث ضغط الزر نكتب مايلي و عند التنفيذ تظهر رسالة تظهر الحالة الراهنة
================
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) and $01 = $01 then
ShowMessage('Computer is attached to a network!')
else
ShowMessage('Computer is not attached to a network!');
end;
================