Delphi访问网络共享文件夹

最新推荐文章于 2024-09-09 23:28:21 发布

weixin_34292287

最新推荐文章于 2024-09-09 23:28:21 发布

阅读量1.4k

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/582827/blog/1913526

版权

2019独角兽企业重金招聘Python工程师标准>>>

var
  NetResource: TNetResource;
  Result: cardinal;
// ...
  NetResource.dwType := RESOURCETYPE_DISK;
  NetResource.lpLocalName := nil;
  NetResource.lpRemoteName := '\\192.168.0.100\dir';
  NetResource.lpProvider := nil;
  Result := WNetAddConnection2(NetResource, 'password', 'username', 0);
  if Result = NO_ERROR then
// ...
// 值得注意的是：如果返回错误值是1219（ERROR_SESSION_CREDENTIAL_CONFLICT），表明这个网络路径已经连接了，可以直接使用
或者

用winexec执行命令：net use \\ip /user:用户名 密码
然后直接
\\ip地址\ipc$\文件夹名称

转载于:https://my.oschina.net/u/582827/blog/1913526