怎样判断是否连接到internet?

Question

uses Wininet;//................function isOnline(): boolean;
var ConTypes : Integer;
begin
    ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
    if (InternetGetConnectedState(@ConTypes, 0) = False)
     then Result := False
     else Result := True;
end;

Answer 1

回复人：　unique(伪程序员)　(2001-2-15 14:45:00)  得20分 
用系统的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;