关于如何检测指定机器上的共享打印机 - C++ Builder / Windows SDK/API
具体场景如下：
在别人的机器上建了一个打印机，然后我在本地添加了进来，然后把开始在别人机器上建的打印机删除掉，但是我本地的没删，当开始打印的时候就会报错，然后系统挂了，。我是想在打印之前先检测对方所建的打印机是否存在，如何检测。。。。
用OpenPrinter是不行的，只要本地有，总是返回真。。。。
高手给指点一下。
但是用网络API函数枚举然后 比较的话又太慢了，
有没有枚举指定主机的共享资源的函数，那样的话应该可以快一些。。。。。。
[解决办法]
在ＤＥＬＰＨＩ程序中，我们可以通过ＷＩＮ ＡＰＩ来列举局域网络中的服务器名称、用户
计算机名称、用户共享目录和文件、共享打印机等资源，这些ＡＰＩ由文件ＭＰＲ．ＤＬＬ提供。
下面以ＷＩＮ９Ｘ的对等网络为例子，列举“网络邻居”中的工作组名称、用户计算机名称、共享
目录和文件、共享打印机等资源。
一、列举“网络邻居”中的工作组名称
在“网络邻居”中，打开“整个网络”，可以看到网络中的所有工作组的名称。在ＤＥＬＰＨＩ
程序中，可以用ＡＰＩ函数WNetOpenEnum和WNetEnumResource来列举“网络邻居”中的工作组名称。
下面是两个ＡＰＩ函数的简介，具体请参见ＤＥＬＰＨＩ帮助文件。
//WNetOpenEnum用于获取一个网络资源句柄，作为WNetEnumResource列举网络资源的依据，其函数
原型如下：
function WNetOpenEnum(
dwScope,//网络范围,RESOURCE_CONNECTED(已连接机器),RESOURCE_GLOBALNET(所有机器),
RESOURCE_REMEMBERED(已记忆的机器)
dwType,//资源类型,RESOURCETYPE_ANY(所有资源),RESOURCETYPE_DISK(文件资源),
RESOURCETYPE_PRINT(打印资源)
dwUsage//资源用途,0(所有资源),RESOURCEUSAGE_CONNECTABLE(所有可连接资源),
RESOURCEUSAGE_CONTAINER(所有container资源)仅在dwScope为RESOURCE_GLOBALNET是有效
: DWORD;
lpNetResource: PNetResource;//NetResource类型指针，其内存表示网络资源的层次,为NIL时
表示最上层，仅在dwScope为RESOURCE_GLOBALNET时有效,其它情况时应为NIL
var lphEnum: THandle//返回网络资源句柄，是WNetEnumResource进一步列举网络资源的依据
): DWORD; stdcall;
返回值NO_ERROR表示执行成功，否则应用GetLastError获取错误信息
//WNetEnumResource用于列出当前网络中可用的资源，包括文件资源和打印资源，其函数原型如下：
function WNetEnumResource(
hEnum: THandle;//WNetEnumResource进一步列举网络资源的依据,通常由WNetOpenEnum取得
var lpcCount: DWORD;//要取得资源的数目，$FFFFFFFF表示列出所有资源，返回值为实际资源数目
lpBuffer: Pointer;//接收结果的缓冲区的指针，一般是NetResource类型的数组
var lpBufferSize: DWORD//接收结果的缓冲区大小(Byte)
): DWORD; stdcall;
返回值为NO_ERROR(执行成功)或ERROR_NO_MORE_ITEMS(资源列举完毕)，否则应用GetLastError获取
错误信息。
要列举网络中的工作组信息，首先要获取网络中的网络类型，再获取每一种类型网络中包含的
工作组的名称。
１、获取网络类型信息
局域网中可以是由多种类型的网络组成，如由Microsoft、Novell等类型的网络组成。用ＡＰＩ
函数WNetOpenEnum和WNetEnumResource可以获取网络类型信息。
（１）用WNetOpenEnum函数返回一个句柄，作为WNetEnumResource列举网络资源的依据。我们的目
标是列举“整个网络”的工作组名称，因而网络范围为RESOURCE_GLOBALNET(所有机器)、资源类
型为RESOURCETYPE_DISK(文件资源)、资源用途为RESOURCEUSAGE_CONTAINER(所有container资源)、
网络层次为最高层(NIL)，这样可以得到一个句柄，以便进一步列举网络资源。具体的程序段如下：
{ Res : DWORD; lphEnum : THandle; }
Res := WNetOpenEnum( RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, Nil,lphEnum);
If Res <> NO_ERROR Then exit;//执行失败
（２）用ＡＰＩ函数WNetEnumResource可以获取网络类型信息，此时要用到上面获取的句柄lphEnum，
可以获取一个NetResource类型的数组，每个NetResource元素即为一种网络类型信息。
具体的请参见以下程序段及注释信息。
type
TNetResourceArray = ^TNetResource;//网络类型的数组
Var
NetResource : TNetResource;
Buf : Pointer;
Count,BufSize,Res : DWORD;
lphEnum : THandle;
p : TNetResourceArray;
i,j : SmallInt;
NetworkTypeList : TList;
begin
......
Count := $FFFFFFFF;//不限资源数目
BufSize := 8192;//缓冲区大小设置为8K
GetMem(Buf, BufSize);//申请内存，用于获取工作组信息
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);//获取网络类型信息
If ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕
or (Res <> NO_ERROR )//执行失败
Then Exit;
P := TNetResourceArray(Buf);
For I := 0 To Count - 1 Do//记录各个网络类型的信息
Begin
NetworkTypeList.Add(p);
Inc(P);
End;
......
end;
２、获取工作组信息
在获取网络类型信息后，可以根据此信息获取此类型网络中的服务器（工作组）信息。
在WNetOpenEnum函数中，将参数lpNetResource指定为一种网络类型信息，可以获取一
个句柄，在WNetEnumResource中利用这个句柄，可以获取一个NetResource类型的数组，每个
NetResource元素的lpRemoteName部分即为一个工作组名称（如“MyWorkGroup”）。
具体的请参见以下程序段及注释信息。
//列出一个网络类型中的所有工作组名称
NetResource := TNetResource(NetworkTypeList.Items[J]^);//网络类型信息
//获取某个网络类型的文件资源的句柄，NetResource为网络类型信息，lphEnum为返回句柄
Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,
RESOURCEUSAGE_CONTAINER, @NetResource,lphEnum);
If Res <> NO_ERROR Then break;//执行失败
While true Do//列举一个网络类型的所有工作组的信息
Begin
Count := $FFFFFFFF;//不限资源数目
BufSize := 8192;//缓冲区大小设置为8K
GetMem(Buf, BufSize);//申请内存，用于获取工作组信息
//获取一个网络类型的文件资源信息，
Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);
If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕
or (Res <> NO_ERROR) //执行失败
then break;
P := TNetResourceArray(Buf);
For I := 0 To Count - 1 Do//列举各个工作组的信息
Begin
List.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称
Inc(P);
End;
End;
