怎样判断是否连接到internet?

[d_fang]

[smile_and_smile]

问一下:是用"猫",还是通过局域网?

[Crob]

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;

[dana]

回复人：　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;

[Barbarian]

up