各位老大！请问如何判断是否连接到网络，一定给分

Question

procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
    ShowMessage('Machine is attached to network') else
    ShowMessage('Machine is not attached to network');
end;

Answer 1

楼上的语句好像有问题，你可以试验一下。不知道你连接的是局域网还是internet，局域网：我有控件。

Answer 2

建意：发贴这前先找一下以前的贴，子前几天我就回答了一个这们的问题！以下是一个判断当前计算机是否联网的例子：procedure TForm1.Button1Click(Sender: TObject);
begin
  if InternetCheckConnection('http://www.yahoo.com/', 1, 0) then
  edit1.text:= 'Connected'
  else
  edit1.text:= 'Disconnected';
end;

Answer 3

另外有两种简单的方法可以实现
那就是调用dos下面的ping 和tracert
winexec(pchar('command.com /c ping '+host),sw_show);
winexec(pchar('command.com /c tracert '+host),sw_show);
另外你也可以把得到的内容显示在你自己的程序里面

Answer 4

另外有两种简单的方法可以实现
那就是调用dos下面的ping 和tracert
winexec(pchar('command.com /c ping '+host),sw_show);
winexec(pchar('command.com /c tracert '+host),sw_show);
另外你也可以把得到的内容显示在你自己的程序里面

Answer 5

http://codelphi.com/channel/jsjn/read.asp?ano=718
这篇文章比较经典
建议你去看看