delphi测试是否联网

时间:2015-10-29 15:25:59
【文件属性】:

文件名称: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;


网友评论

  • 这是本地连接的判断