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