如何获得网络状态?如何断开网络连接? 如何获得端口的使用情况?
能给出可运行源码的,立刻给分
能给出可运行源码的,立刻给分
解决方案 »
- Image 坐标转换问题
- 在AdoQuery 怎样动态创建Calculated 字段(既计算字段)
- 报表的横向打印
- WEB开发 出现XMLRowset未定义是什么问题
- 请问那位大虾有wwdbdatetimepicker控键、请给我传一个,
- 请问进程提权是什么意思
- 请教高手,Delphi如何通过API管理2000 server 的 FTP 和 IIS 和 DNS?
- 关于 shelliconcache 文件!???
- 请教内存方面的问题,熟悉内存的看过来
- 求D5 PACH 高速下载!不要教育网!截止日期——3月1日
- 请问如何在Edit中按键的时候判断CAPS LOCK是否打开?
- 谁有DELPHI7.0的SERIAL NUMBER?
procedure TForm1.Button1Click(Sender: TObject);
var
Types:integer;
begin
Types:=INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
if internetGetConnectedState(@types,0) then
edit1.text:='on line'
else
edit1.text:='off line';
end;