请问如何检测与internet的拨号连接，并且中止它？(200分)

L

lufang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #1

请问如何检测与internet的拨号连接，并且中止它？

 

L

leezero

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #2

弄个拨号程序

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #3

rasHungUp

 

C

cjsam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #4

检测的连网：
Function Inetisoffline(flag:integer):boolean;stdcall;extenal 'url.dll';

if Inetisoffline(0) then
没有连网
else
连接上网

 

8

816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-27

• #5

简单的可以PING 一下某个网站。

 

N

naughtboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-28

• #6

procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network') else
ShowMessage('Machine is not attached to network');
end;

 

L

lufang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-01

• #7

还有吗？要散分了

 

E

etu5

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-01

• #8

关于naughtboy的回答:
procedure TForm1.Button1Click(Sender: TObject);
begin
if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
ShowMessage('Machine is attached to network') else
ShowMessage('Machine is not attached to network');
end;

-------------------------
这个不对 无论上网还是没有上网,都显示'Machine is attached to network'

 

8

816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #9

procedure TForm1.Button1Click(Sender: TObject);
begin
if InternetCheckConnection('http://www.163.com/', 1, 0) then
edit1.text:= 'Connected'
else
edit1.text:= 'Disconnected';
end;

 

8

816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #10

function TForm1.CheckOffline: boolean;
var
ConnectState: DWORD;
StateSize: DWORD;
begin
ConnectState:= 0;
StateSize:= SizeOf(ConnectState);
result:= false;
if InternetQueryOption(nil, INTERNET_OPTION_CONNECTED_STATE, @ConnectState, StateSize) then
if (ConnectState and INTERNET_STATE_DISCONNECTED) <> 2 then result:= true;
end;

 

8

816

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-05

• #11

第一个是检测网络是否通的。
第二个是检测是否可以连网的。
这个是检测拨号类型的
procedure TForm1.Button3Click(Sender: TObject);
var m:TConnectionType;
begin
m:=ConnectedToInternet;
case m of
ctNone :edit3.text:='ctnone';
ctProxy :edit3.Text:='ctproxy';
ctDialup :edit3.text:='ctdialup';
end;
end;

 

S

sandal

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-22

• #12

Undeclared identifier'TConnectionType'

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-03-28

• #13

帮你UP！