如何在程序中判断局域网上的的机器连接互联网的状态 (50分)

有一个方法，我已试过，证明已经可以通过局域网上的的机器测试连接互联网的状态.
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

procedure TForm1.Button1Click(Sender: TObject);
begin
if InetIsOffline(0) then ShowMessage('not connected!')
else ShowMessage('connected!');
end;
url.dll 文件位于system目录，装ie时也就有此文件，但关于此文件更详细的使用，
请同志给点提示。

gz

to ozj
你好，我试了，不能判断出来。不知道你怎么测试的。详细说说好吗？？？

To Casey
我已经成功了。虽然老板不太满意。不管怎样我可以交差了！非常非常感谢！！！！！

接受答案了.