1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.ConnectServer;
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName :=''; // 将远程资源映射到此驱动器
lpRemoteName:='\\192.168.0.1\picbook'; // 远程网络资源
lpProvider :='';
end;
WnetAddConnection2(NetSource, 'aaaa','Administrator',CONNECT_UPDATE_PROFILE);
end;
先用访问网络,然后直接打印。