如何用delphi实现检测局域网机器的ip,机器名,网络连接状态服务性质
找了几张代码,但是在图形界面方面不知如何设计,有人给俺出出主意,谢谢啦
代码基本是这一、 基本原理
---- 在Microsoft Windows环境下,应用程序使用Windows网络函数(WNet)来实现网络功能而不
用关心网络的供应商及具体实现。因为WNet函数是独立于网络的。
---- Wnet函数主要有:WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 ,
WnetCancelConnection2等。本文主要用WnetAddConnection2,WnetCancelConnection2函数,下面
简单介绍一下,关于WNet函数更详细的资料请参考Delphi的连机文档和Microsoft API函数说。
---- WNetAddConnection2在Windows.pas中的函数原型如下:
function WNetAddConnection2(var lpNetResource: TNetResource;lpPassword, lpUserName: PChar;
dwFlags:DWORD): DWORD; stdcall;
为调用此函数必须填写lpNetResouce结构,此结构的定义为:
typedef struct _NETRESOUCE{
DWORD dwScope;
DWORD dwType;
DWORD dwDisplayType;
DWORD dwUsage;
LPTSTR lpLocalName;
LPTSR lpRemoteName;
LPTSr lpProvider;
} NETRESOURCE;
这里使用dwType,lpLocalName,lpRemoteName,lpProvider几个参数。其含义如下:
dwType : 用于指定网络的资源类型,有以下
RESOURCETYPE_ANY(任何资源) ,
RESOURCETYPE_DISK(磁盘资源) ,
RESOURCETYPE_PRINT(打印机资源)。
lpLocalName : 指定本地设备。
lpRemoteName : 指定远程网络名。
lpProvider : 指定提供网络资源的供应商。如为空,则表示供应商未知。
WNetAddConnection2函数的
lpPassword为远程资源的口令。
lpUserName为远程资源的用户名。
dwFlags标志位用于指定登录时是否重新连接(0时表示不重新连接,CCONNECT_UPDATE_PROFILE
登录时重新连接)。
WnetCancelConnection2在Windows.pas中的函数原型如下:
function WNetCancelConnection2(lpName: PChar; dwFlags: DWORD; fForce: BOOL): DWORD; stdcall;
lpName : 要断开的远程网络资源或本地重定向驱动器。
dwFlags : 含义同上。
fForce : True表示不管是否有文件打开,强制性断开网络驱动器;
False 表示如有文件打开则函数运行失败。样的: