var
Types : Integer;
begin
{ CopyRight (C) Bowman }
{ [email protected] }
Types := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
//check 3 conditions together
if InternetGetConnectedState(@types, 0) then
Edit1.Text := 'your pc is Online now'
else
Edit1.Text := 'your pc is offline now';
这个方式显示不连接,但我实实在在能上网.
if GetSystemMetrics(SM_NETWORK) and $0001 = $0001 then
edit1.text:='Machine is OnLine'
else
edit1.text:='Machine is OffLine';
这个方式显示连接,但我已经断网了,郁闷ing...............................
Types : Integer;
begin
{ CopyRight (C) Bowman }
{ [email protected] }
Types := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
//check 3 conditions together
if InternetGetConnectedState(@types, 0) then
Edit1.Text := 'your pc is Online now'
else
Edit1.Text := 'your pc is offline now';
这个方式显示不连接,但我实实在在能上网.
if GetSystemMetrics(SM_NETWORK) and $0001 = $0001 then
edit1.text:='Machine is OnLine'
else
edit1.text:='Machine is OffLine';
这个方式显示连接,但我已经断网了,郁闷ing...............................
解决方案 »
- 查询后如何实现分页功能
- 简单问题:点击一个button怎么弹出另外一个窗体?
- c++ 中的CHAR * 應對應DELPHI中的哪個數據類型
- 我想自已封装TStringGrid,加入一个奇偶行颜色的属性,让它自已改变颜色?如何实现啊?
- 我的ADOQuery不运行的时候能连上数据库。可以在DBGrid中显示。可示一运行DBGrid里面就什么也没有!
- 谁知道如何不用DLL实现监控鼠标事件?
- ADO和Query的比较?
- 各位兄弟 又来问问题了!
- delphi7 printdbgrideh 打印预览不显示 如图 求助
- 关于ADO提交数据时的问题,请解答
- 有starteam2005R2下载吗?
- 初学者问题
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
我想问我们除了这三种上网方式,还有其他的上网方式?