机器是否联网

if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then ShowMessage('Machine is attached to network') else
ShowMessage('Machine is not attached to network');