delphi测试是否联网

【文件属性】：

文件名称：delphi测试是否联网

文件大小：596B

文件格式：TXT

更新时间：2015-10-29 15:25:59

测试是否联网

使用GetSystemMetrics procedure TForm1.Button1Click(Sender: TObject); begin if(GetSystemMetrics(SM_NETWORK)and $01=$01) then begin ShowMessage('网络已存在'); end else begin ShowMessage('未联网'); end; end;