怎样知道电脑已连上网？(20分)

L

luyaong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #1

越简单越好，不好意思，没分了。

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #2

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);

function GetOnlineStatus : 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;

begin
if GetOnlineStatus then
ShowMessage(' Connected')
else ShowMessage(' not Connected');
end;

 

L

luyaong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #3

to 卷起千堆雪：
InternetGetConnectedState（）是什么函数？编释不通过（[Error] Unit1.pas(29): Undeclared identifier: 'InternetGetConnectedState'）
还有[Error] Unit1.pas(28): Undeclared identifier: 'INTERNET_CONNECTION_MODEM'
[Error] Unit1.pas(28): Undeclared identifier: 'INTERNET_CONNECTION_LAN'
[Error] Unit1.pas(28): Undeclared identifier: 'INTERNET_CONNECTION_PROXY'
是不是还要在user加个什么单元？

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #4

注意引用单元 ： WinInet;

 

L

luyaong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #5

自从上了大富翁，人越来越懒越来越笨了，连search都没想到。

 

L

luyaong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #6

还是不行，不管我上没上网都ShowMessage(' Connected')，？？

 

C

CJF

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #7

这个本身就不是准确的，在程序里面PING一个地址来检查吧。。。[]

 

L

luyaong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #8

多谢两位，决定用CJF的方法，虽然麻烦些但靠得住