用DELPHI程序如何判断计算机是否处于INTERNET联接状态？

Question

用DELPHI程序如何判断计算机是否处于INTERNET联接状态？

Answer 1

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 2

use 
WinInet
 
 .....if InternetCheckConnection('http://www.csdn.com/', 1, 0) thentrue 为在线