WNetAddConnection
WNetAddConnection2
WNetAddConnection3
以上三个API可以用。具体看帮助吧。
==========================================================================
unit NetConnection;
interface
uses
Windows, SysUtils,Classes, WinSock,winsvc,Dialogs;
type
_SERVER_INFO_100=record
sv101_platform_id
WORD;
sv101_name:LPWSTR;
end;
SERVER_INFO_100=_SERVER_INFO_100;
PSERVER_INFO_100=^_SERVER_INFO_100;
_SERVER_INFO_101=record
sv101_platform_id
WORD;
sv101_name:LPWSTR;
sv101_version_major
WORD;
sv101_version_minor
WORD;
sv101_type
WORD;
sv101_comment:LPWSTR;
end;
SERVER_INFO_101=_SERVER_INFO_101;
PSERVER_INFO_101=^_SERVER_INFO_101;
// LPSERVER_INFO_101=^_SERVER_INFO_101;
type
_NET_DISPLAY_USER =record
name :LPWSTR;
comment :LPWSTR;
flags
WORD;
full_name:LPWSTR;
user_id
WORD;
next_index
WORD;
end;
NET_DISPLAY_USER=_NET_DISPLAY_USER;
PNET_DISPLAY_USER=^_NET_DISPLAY_USER;
type _NET_DISPLAY_MACHINE=record
name :LPWSTR;
comment:LPWSTR;
flags
WORD;
user_id
WORD;
next_index
WORD;
end;
NET_DISPLAY_MACHINE=_NET_DISPLAY_MACHINE;
PNET_DISPLAY_MACHINE=^_NET_DISPLAY_MACHINE;
type _NET_DISPLAY_GROUP=record
name :LPWSTR;
comment :LPWSTR;
user_id
WORD;
flags
WORD;
next_index
WORD;
end;
NET_DISPLAY_GROUP=_NET_DISPLAY_GROUP;
PNET_DISPLAY_GROUP=^_NET_DISPLAY_GROUP;
type
_SHARE_INFO1_NT=record
netname :LPWSTR;
net_type
WORD;
remark :LPWSTR;
end;
SHARE_INFO1_NT = _SHARE_INFO1_NT;
PSHARE_INFO1_NT = ^SHARE_INFO1_NT;
LPBYTE = Pointer;
NET_API_STATUS = DWORD;
LPVOID = Pointer;
type
share_info1_9x=record
shi1_netname :array [0..21] of char;
shi1_pad1 :char;
shi1_type :short;
shi1_remark
char;
end;
Tmy_WNetAddConnection2 = function(lpNetResource
NetResourceA;
lpPassword: LPCTSTR;
lpUsername: LPCTSTR;
dwFlags: DWORD
): DWord; stdcall;
Tmy_WNetCancelConnection2 = function(lpName: LPCTSTR;
dwFlags: DWORD;
fForce: BOOL
): DWord; stdcall;
Tmy_NetQueryDisplayInformation = function(ServerName: LPCWSTR;
Level: DWORD;
Index: DWORD;
EntriesRequested: DWORD;
PreferredMaximumLength: DWORD;
var ReturnedEntryCount: longint;
SortedBuffer: Pointer
): DWord; stdcall;
TNetServerGetInfo =function (servername:LPWSTR;level
WORD;
VAR buf
SERVER_INFO_101): DWord; stdcall;
{ TNetShareEnum_9x =function( pszServer
char;
sLevel:short;
pbBuffer
char;
cbBuffer:short;
pcEntriesRead:short;
pcTotalAvail:short
): DWord; stdcall;
} TNetShareEnum_NT=function(pszServer:LPWSTR; sLevel:longint;
var p
SHARE_INFO1_NT;var cbBuffer: longint; var pcEntriesRead: longint; var pcTotalAvail:longint;var hEnum:HWND): NET_API_STATUS; stdcall;
TIConnectionException = class(Exception);
type
TIConnectionReply = procedure(Sender: TObject; Error : Integer) of object;
TIConnection = class(TObject)
private
hmprdll : HModule; // Handle for mpr.dll
ShareEnum_dll : HModule; // Handle for mpr.dll
my_WNetAddConnection2 : Tmy_WNetAddConnection2;
my_WNetCancelConnection2 : Tmy_WNetCancelConnection2;
my_NetQueryDisplayInformation:Tmy_NetQueryDisplayInformation;
NetShareEnum_NT : TNetShareEnum_NT;
FAddress,fsharename: String; // Address given
Fusername,Fpassword : String;
FosVersion : integer;
FOnEchoClose : TIConnectionReply;
FOnEchoOpen : TIConnectionReply;
FOnEchoShareEnum : TIConnectionReply;
FOnOpenSucceed : TNotifyEvent;
FNetServerGetInfo : TNetServerGetInfo;//用于取服务器信息
public
list:tstringlist;
list_info:tstringlist;
AutoDo:boolean;
FGetInfo:boolean;
constructor Create; virtual;
destructor Destroy; override;
procedure SetAddress(Value : String);
function getserverinfo:Integer;
function open : Integer;
function close : Integer;
function ShareEnum : Integer;
function NetQueryDisplayInformation(Level:integer;var var_list:Tstringlist):integer;
function get_user(Level:integer;var var_list:Tstringlist):integer;
function my_EnumServices(var var_list:Tstringlist):integer;
property Address : String read FAddress write SetAddress;
property ShareName : String read Fsharename write fsharename;
property UserName : String read Fusername write Fusername;
property PassWord : String read Fpassword write Fpassword;
property OnEchoClose : TIConnectionReply read FOnEchoClose write FOnEchoClose;
property OnEchoOpen : TIConnectionReply read FOnEchoOpen write FOnEchoOpen;
property OnShareEnum : TIConnectionReply read FOnEchoShareEnum write FOnEchoShareEnum;
property OnOpenSucceed : TNotifyEvent read FOnOpenSucceed write FOnOpenSucceed;
end;
// function NetShareEnum_NT;external 'netapi32.dll' name 'NetShareEnum';
implementation
const
SV_TYPE_WORKSTATION = $00000001;
SV_TYPE_SERVER = $00000002;
SV_TYPE_SQLSERVER = $00000004;
SV_TYPE_DOMAIN_CTRL = $00000008;
SV_TYPE_DOMAIN_BAKCTRL = $00000010;
SV_TYPE_TIME_SOURCE = $00000020;
SV_TYPE_AFP = $00000040;
SV_TYPE_NOVELL = $00000080;
SV_TYPE_DOMAIN_MEMBER = $00000100;
SV_TYPE_PRINTQ_SERVER = $00000200;
SV_TYPE_DIALIN_SERVER = $00000400;
SV_TYPE_XENIX_SERVER = $00000800;
SV_TYPE_SERVER_UNIX = SV_TYPE_XENIX_SERVER;
SV_TYPE_NT = $00001000;
SV_TYPE_WFW = $00002000;
SV_TYPE_SERVER_MFPN = $00004000;
SV_TYPE_SERVER_NT = $00008000;
SV_TYPE_POTENTIAL_BROWSER = $00010000;
SV_TYPE_BACKUP_BROWSER = $00020000;
SV_TYPE_MASTER_BROWSER = $00040000;
SV_TYPE_DOMAIN_MASTER = $00080000;
SV_TYPE_SERVER_OSF = $00100000;
SV_TYPE_SERVER_VMS = $00200000;
SV_TYPE_WINDOWS = $00400000; ///* Windows95 and above */
SV_TYPE_DFS = $00800000; ///* Root of a DFS tree */
SV_TYPE_CLUSTER_NT = $01000000; ///* NT Cluster */
SV_TYPE_TERMINALSERVER = $02000000; ///* Terminal Server(Hydra) */
SV_TYPE_DCE = $10000000; ///* IBM DSS (Directory and Security Services) or equivalent */
SV_TYPE_ALTERNATE_XPORT = $20000000; ///* return list for alternate transport */
SV_TYPE_LOCAL_LIST_ONLY = $40000000; ///* Return local list only */
SV_TYPE_DOMAIN_ENUM = $80000000;
constructor TIConnection.Create;
var
// WSAData: TWSAData;
OSVer:TOSVersionInfo;//版本信息
begin
fpassword:='';
fusername:='';
fsharename:='ipc$';
AutoDo:=true;
FGetInfo:=false;
// initialise winsock
// if WSAStartup($101, WSAData) <> 0 then
// raise TIConnectionException.Create('Error initialising Winsock');
//先获取系统版本,再决定装载函数
ZeroMemory(@OSVer, sizeof(TOSVersionInfoA));
OSVer.dwOSVersionInfoSize:= sizeof(TOSVersionInfoA);
GetVersionEx(OSVer); FosVersion:=integer(OSVer.dwPlatformId);
list:=tstringlist.Create;//建立字符串列表
list_info:=tstringlist.Create;//建立字符串列表
if FosVersion=VER_PLATFORM_WIN32_NT then
begin
ShareEnum_dll:=LoadLibrary('netapi32.dll');
if ShareEnum_dll = 0 then
raise TIConnectionException.Create('Unable to register netapi32.dll');
end else
begin
ShareEnum_dll:=LoadLibrary('svrapi.dll');
if ShareEnum_dll = 0 then
raise TIConnectionException.Create('Unable to register svrapi.dll');
end;
hmprdll := LoadLibrary('mpr.dll');
if hmprdll = 0 then
raise TIConnectionException.Create('Unable to register mpr.dll');
@my_WNetAddConnection2 := GetProcAddress(hmprdll, 'WNetAddConnection2A');
@my_WNetCancelConnection2 := GetProcAddress(hmprdll, 'WNetCancelConnection2A');
// if FosVersion=VER_PLATFORM_WIN32_NT then//win9x不支持
@my_NetQueryDisplayInformation:=GetProcAddress(ShareEnum_dll, 'NetQueryDisplayInformation');
@NetShareEnum_NT := GetProcAddress(ShareEnum_dll, 'NetShareEnum');
@FNetServerGetInfo := GetProcAddress(ShareEnum_dll, 'NetServerGetInfo');
if (@my_WNetAddConnection2 =nil) or (@FNetServerGetInfo =nil) or (@my_NetQueryDisplayInformation =nil) or
(@my_WNetCancelConnection2 =nil) or (@NetShareEnum_NT =nil) then
raise TIConnectionException.Create('加载dll函数错误!');
// if (FosVersion=VER_PLATFORM_WIN32_NT) and (@my_NetQueryDisplayInformation =nil) then
// raise TIConnectionException.Create('加载NetQueryDisplayInformation函数错误!');
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
destructor TIConnection.Destroy;
begin
if hmprdll <> 0 then
FreeLibrary(hmprdll);
if ShareEnum_dll <> 0 then
FreeLibrary(ShareEnum_dll);
list.Free;list_info.Free;
inherited Destroy;
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
procedure TIConnection.SetAddress(Value : String);
begin
// Only change if needed (could take a long time)
if FAddress = Value then Exit;
FAddress:= Value;
end;
function TIConnection.getserverinfo:Integer;
var
pBuf
SERVER_INFO_101;
pBuf_100
SERVER_INFO_100;
str:string;
res
word;
ServerName
wchar;
begin
result:=0;
list_info.Clear;
list_info.add(FAddress);
if pos('//',FAddress)=1 then str:=FAddress
else str:='//'+FAddress;
ServerName:=StringToOleStr(str);
res:=FNetServerGetInfo(ServerName,101,pBuf);
if (res =0) then
begin
if (pBuf.sv101_type and SV_TYPE_DOMAIN_CTRL) =SV_TYPE_DOMAIN_CTRL then str:='PDC'
else
if (pBuf.sv101_type and SV_TYPE_DOMAIN_BAKCTRL)=SV_TYPE_DOMAIN_BAKCTRL then str:='BDC'
else
if (pBuf.sv101_type and SV_TYPE_SERVER_NT)=SV_TYPE_SERVER_NT then str:='NT4.0 / WINDOWS2000'
else
if (pBuf.sv101_type and SV_TYPE_NT)=SV_TYPE_NT then str:='NT WORKSTATION'
else
if (pBuf.sv101_type and SV_TYPE_SQLSERVER)=SV_TYPE_SQLSERVER then str:='SQL_server'
else
if (pBuf.sv101_type and SV_TYPE_NOVELL)=SV_TYPE_NOVELL then str:='Novell Netware Server'
else
if (pBuf.sv101_type and SV_TYPE_WFW)=SV_TYPE_WFW then str:='WINDOWS ME/Windows for Workgroups'
else
if (pBuf.sv101_type and SV_TYPE_WINDOWS)=SV_TYPE_WINDOWS then str:='Windows 9x'
else
str:=inttostr(pBuf.sv101_type);
list_info.Add('名称:'+pBuf.sv101_name);
list_info.Add('系统:'+str);
list_info.add('platform:'+inttostr(pBuf.sv101_platform_id));
list_info.add('版本:'+format('%d - %d',[ pBuf.sv101_version_major, pBuf.sv101_version_minor]));
list_info.add('类型:'+format('%d',[pBuf.sv101_type]));
list_info.add('备注:'+pBuf.sv101_comment);
end else
begin
res:=FNetServerGetInfo(ServerName,100,PSERVER_INFO_101(pBuf_100));
if (res =0) then
begin
list_info.Add('名称:'+pBuf_100.sv101_name);
list_info.add('platform:'+inttostr(pBuf_100.sv101_platform_id));
end else result:=-1;
end;
end;
{* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
function TIConnection.open : Integer;
var
FNetResource:TNetResourceA;
str:string;
res
word;
begin
if pos('//',FAddress)=1 then str:=FAddress+'/'+fsharename
else str:='//'+FAddress+'/'+fsharename;
FNetResource.dwType:=RESOURCETYPE_ANY;
FNetResource.lpLocalName:='';
FNetResource.lpProvider:='';
FNetResource.lpRemoteName:=pchar(str);
res:=my_WNetAddConnection2(@FNetResource,pchar(fpassword),pchar(fusername),0);
list.clear;
list.add(FAddress);
if autodo then//若自动则不响应事件
begin
if (res=0) then
ShareEnum
else
if Assigned(FOnEchoClose) then
FOnEchoClose(Self, res);
end else
if Assigned(FOnEchoOpen) then
FOnEchoOpen(Self, res);
end;
function TIConnection.ShareEnum : Integer;
var
cbBuffer,EntriesRead, TotalAvail: longint;
hEnum:HWND;
res:NET_API_STATUS;
p
SHARE_INFO1_NT;
IP_str:string;
ServerName
wchar;
i:integer;
begin
if list.count>1 then
begin
list.clear;
list.add(FAddress);
end;
if (pos('//',FAddress)=1) then
IP_str:=FAddress
else
IP_str:='//'+FAddress;
ServerName:=StringToOleStr(IP_str);
cbBuffer:= $0ffffff; hEnum:=0;
res:=NetShareEnum_NT(ServerName,1,p,cbBuffer,EntriesRead,TotalAvail,hEnum);
if (res=0) or (res=234) then
if EntriesRead>0 then
for i:=0 to EntriesRead-1 do
begin
list.add(string(p^.netname)+' '+string(p^.remark));
inc(p);
end;
if autodo then
begin
if ((res=0) or (res=234)) then//若自动则不响应事件
begin
if Assigned(FOnEchoShareEnum) then
FOnEchoShareEnum(Self, res);
close;
end else
if Assigned(FOnEchoClose) then
FOnEchoClose(Self, res);
end else
if Assigned(FOnEchoShareEnum) then
FOnEchoShareEnum(Self, res);
end;
function TIConnection.close : Integer;
var
str:string;
begin
if pos('//',FAddress)=1 then str:=FAddress+'/'+fsharename
else str:='//'+FAddress+'/'+fsharename;
if Assigned(FOnOpenSucceed) then //响应外部的查找用户事件
FOnOpenSucceed(Self);
Result:=my_WNetCancelConnection2(pchar(str),0,true);
if FGetInfo then getserverinfo;//获取机器版本的信息
if Assigned(FOnEchoClose) then
FOnEchoClose(Self, Result);
end;
function usri1_flags(flags
WORD):string;//返回说明
begin
result:='';
// if (flags and 1)=1 then result:='需要密码';
if (flags and 2)=2 then result:=result+'已停用,';
if (flags and $20)=$20 then result:=result+'空密码';
{ if (flags and 8)=8 then result:=result+'The home directory is required. Windows NT ignores this value';
// if (flags and $40)= $40 then result:=result+'该用户不能更改密码';
// if (flags and $20)= $20 then result:=result+'The Account is Locked';
// if (flags and $80)= $80 then result:=result+'Password does not 期满';
}
if result='' then result:='信息标记:'+inttostr(flags);
end;
//经验:若要返回的数可以用,要注意是否为var类 如下的 dwRec变量,要在定义中设为var
//否则API函数返回后不可以用
//谝函数一定要在CLose连接后才有用
function TIConnection.NetQueryDisplayInformation(Level:integer;var var_list:Tstringlist):integer;
var
p
NET_DISPLAY_USER;
res, i
WORD;
dwRec:longint;
IP_str:string;
ServerName
wchar;
count:integer;
begin
var_list.clear;
var_list.add(FAddress);
if (pos('//',FAddress)=1) then
IP_str:=FAddress
else
IP_str:='//'+FAddress;
ServerName:=StringToOleStr(IP_str);
i:=0;
res :=my_NetQueryDisplayInformation(ServerName, Level, i, 8000,8000,dwRec,@p);
if((res=0) or (res=234)) then
begin
if dwRec>0 then
begin
for count:=0 to dwRec-1 do
begin
var_list.add(inttostr(count+1)+'->['+string(p^.name)+'] '+usri1_flags(p^.flags)+' 描述:'+string(p^.comment)+' ID:'+inttostr(p^.user_id));
inc(p);
end;
end;
end;
end;
function TIConnection.get_user(Level:integer;var var_list:Tstringlist):integer;
var
FNetResource:TNetResourceA;
p
NET_DISPLAY_USER;
res, i
WORD;
dwRec:longint;
IP_str:string;
ServerName
wchar;
count:integer;
begin
var_list.clear;
if (pos('//',FAddress)=1) then
IP_str:=FAddress
else
IP_str:='//'+FAddress;
ServerName:=StringToOleStr(IP_str);
//连接主机
ip_str:=ip_str+'/ipc$';
FNetResource.dwType:=RESOURCETYPE_ANY;
FNetResource.lpLocalName:='';
FNetResource.lpProvider:='';
FNetResource.lpRemoteName:=pchar(IP_str);
res:=my_WNetAddConnection2(@FNetResource,'','',0);
if (res<>0) and (res<>1219) then exit; //0代表成功,1219代表凭据冲突,即先前已有连接还未断开
//找用户
i:=0;
res :=my_NetQueryDisplayInformation(ServerName, Level, i, 8000,8000,dwRec,@p);
if((res=0) or (res=234)) then
begin
if dwRec>0 then
begin
for count:=0 to dwRec-1 do
begin
if (p^.flags and 2)<>2 then//只有不停用的用户才要
var_list.add(string(p^.name));
inc(p);
end;
end;
end;
Result:=my_WNetCancelConnection2(pchar(ip_str),0,true);//关闭连接
end;
function TIConnection.my_EnumServices(var var_list:Tstringlist):integer;
var
BytesNeeded,serviceReturned,resumeHandle
word;
returnflag:Bool;
lpservice:Array of TEnumServiceStatus;
service:TEnumServiceStatus;
i,bytes
word;
hscmanager:SC_HANDLE;
str:string;
begin
if pos('//',FAddress)=1 then str:=FAddress
else str:='//'+FAddress;
var_list.Clear;
var_list.add(FAddress);
returnflag:=false;
resumeHandle:=0;
BytesNeeded:=0;
hscmanager:=OpenSCManager(pchar(str),0,SC_MANAGER_ALL_ACCESS);//打开service control manager database
if hscmanager =0 then
Begin
// var_list.add('无法打开service control manager database');
exit;
End;
returnflag:=EnumServicesStatus(hscmanager,
SERVICE_WIN32 or SERVICE_DRIVER,
SERVICE_ACTIVE or SERVICE_INACTIVE,
service,
0,
BytesNeeded,
serviceReturned,
resumeHandle);
//枚举Service
if (returnflag=false) and (GetLastError()=ERROR_MORE_DATA) then
begin
resumeHandle:=0;
bytes:=BytesNeeded + sizeof(TEnumServiceStatus);
SetLength(lpservice,bytes div sizeof(TEnumServiceStatus)+1); // 一定要设好大小,否则出错
returnflag:=EnumServicesStatus(hscmanager,
SERVICE_WIN32 or SERVICE_DRIVER,
SERVICE_ACTIVE or SERVICE_INACTIVE,
lpservice[0],
bytes,
BytesNeeded,
serviceReturned,
resumeHandle);
for i := 0 to serviceReturned-1 do
begin
if lpservice
.ServiceStatus.dwCurrentState = SERVICE_STOPPED then
var_list.Add(inttostr(i+1)+'->['+lpservice.lpServiceName+'] '+lpservice.lpDisplayName+' :停止') else
if lpservice.ServiceStatus.dwCurrentState = SERVICE_RUNNING then
var_list.Add(inttostr(i+1)+'->['+lpservice.lpServiceName+'] '+lpservice.lpDisplayName+' :运行') else
var_list.Add(inttostr(i+1)+'->['+lpservice.lpServiceName+'] '+lpservice.lpDisplayName+' :暂停');
end;
end;
CloseServiceHandle(hscmanager);//关闭service control manager database
end;
end.
{procedure TForm1.Button2Click(Sender:TObject);
var
i:integer;
hService:SC_HANDLE;
lpServiceArgVectorschar;
returnstatus:TServiceStatus;
begin
lpServiceArgVectors:=nil;
for i := 0 to (ListBox1.Items.Count-1) do
if ListBox1.Selected then
begin
hService:=OpenService(hscmanager,
Pchar(ListBox1.Items),
SERVICE_ALL_ACCESS);
//打开该Service
if hService < 0 then
begin
showmessage('无法打开该Service');
exit;
end;
QueryServiceStatus(hService,returnstatus);
//查看该Service的状态
if returnstatus.dwCurrentState = SERVICE_STOPPED then
//如果该Service已停止则启动它
StartService(hService,0,lpServiceArgVectors);
CloseServiceHandle(hService);//关闭该Service
end;
end;
procedure TForm1.Button3Click(Sender:TObject);
var
i:integer;
begin
for i := 0 to (ListBox1.Items.Count-1) do
if ListBox1.Selected then
begin
hService:=OpenService(hscmanager,
Pchar (ListBox1.Items),
SERVICE_ALL_ACCESS);
//打开该Service
if hService < 0 then
begin
showmessage('无法打开该Service');
exit;
end;
QueryServiceStatus(hService,returnstatus);
//查看该Service的状态
if returnstatus.dwCurrentState = SERVICE_RUNNING then
//如果该Service正在运行则停止它
ControlService(hService,
SERVICE_CONTROL_STOP,
returnstatus);
CloseServiceHandle(hService);//关闭该Service
end;
end;
procedure TForm1.FormClose(Sender:TObject;varAction:TCloseAction);
begin
CloseServiceHandle(hscmanager);//关闭service control manager database
End;
end.
}
