怎么判断计算机是否已经连上Internet了？

Question

用系统的url.dll（这个dll,系统一般都有ie5,office都包含这个dll）function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';调用代码：
procedure TFrmInternetDemo.Button1Click(Sender: TObject);
begin
  if InetIsOffline(0) then
   ShowMessage('This computer is not connected to Internet!')
  else
   ShowMessage('You are connected to Internet!');
end;

Answer 1

顺便问一句：
这一句
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
在C++BUILDER中怎么定义？特别是涉及external 'URL.DLL';

Answer 2

{检测计算机的Internet连接}
uses WinInet;function IsOnline:Boolean;
var
  ConnectState,StateSize:DWORD;
begin
  Result:=False;
  if not InternetCheckConnection('http://www.microsoft.com/',1,0) then
    Exit;
  ConnectState:=0;
  StateSize:=SizeOf(ConnectState);
  if InternetQueryOption(nil,INTERNET_OPTION_CONNECTED_STATE,@ConnectState,StateSize) then
    if (ConnectState and INTERNET_STATE_DISCONNECTED)<>2 then
      Result:=True;
end;