导航

心动吧DELPHI网络书

自发研究:须要多维思想而且要想不可能为可能的人才能做到

[置顶] {下载}本站提供delphi下载

  下载的时候最好不要用迅雷,要不然很容易断线.

  提供多个控件下载:

一句话获取本机 IP 和判断网络是否联通

判断网络是否联通

uses WinInet;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if InternetGetConnectedState(nil, 0) then ShowMessage('已连接');

end;

 

获取本机IP

//添加 TIdIPWatch 控件: IdIPWatch1

...

Delphi程序自动拨号连接网络

 

procedure TForm1.dialogon;    //启动拨号连接
var
fname:string;
myhand:hwnd;
mybutton:hwnd;
begin
fname:='rasphone.exe ';
ShellExecute(0,'open',pchar(fname),'-d 163',nil,sw_show);
sleep(300);
...

网络函数大公开

声明:本文摘自CSDN论坛上网友zsy_good的原作,经过了tomm的一些整理修改.



{=========================================================================

   功  能: 网络函数库

   时  间: 2002/10/02

   版  本: 1.0

...

在程序中动态取得Win95/98网络邻居中工作组及计算机名

在程序中动态取得Win95/98网络邻居中工作组及计算机名 可参考下面代码,或许有所帮助:procedure GetDomainList(TV:TTreeView);vara : Integer;ErrCode : Integer;NetRes : Array[0..1023] of TNetRes

分页:[«]1[»]

日历

<< 2013-5 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

站内搜索

Copyright ⊙ 2004-2009 心动吧 UrL:ABCXD.CoM All RiGhts Reserved