测试连网问题

Question

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if InternetCheckConnection('http://www.yahoo.com/', 1, 0)  then
 label1.caption:='连网'
 else
 label1.caption:='没有' ;
end;我用如上代码测试是否连网，但是显示如下代码
  [Error] Unit1.pas(30): Undeclared identifier: 'InternetCheckConnection'
  [Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
我分析不出来那里的问题请教高手

Answer 1

InternetCheckConnection是不是自定义的函数呀，是的话那你要要引用函数定义的单元，系统好像没有这个函数可以调用的！

Answer 2

这个函数在98里运行要出错的，还是用Wininet。