function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
procedure TLog_Form.FormCreate(Sender: TObject);
begin
  Login :=False ;
  if inetIsOffline(0) then
  begin
    statusbar1.Panels[1].Text :='该计算机目前没有连接到internet' ;
    Login :=False ;
  end
  else
  begin
    statusbar1.Panels[1].Text :='该计算机目前以连接到internet';
    Login :=True ;
  end;
end;好象我拔掉网线还是提示连接到了internet了?