网络映射

abai 2003-05-19 12:26:53
密码登陆异机共享
...全文
48 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
jjpan 2003-05-19
  • 打赏
  • 举报
回复
with NetSource do begin
dwType := RESOURCETYPE_ANY;
lpLocalName := 'x:';
// 将远程资源映射到此驱动器
lpRemoteName :=pchar(trim(self.ValueListEditor1.Values['serverlocation']));
// 远程网络资源
lpProvider := ''; // 必须赋值,如为空则使用lpRemoteName的值。
end;
ErrInfo := WnetAddConnection2(NetSource,pchar(trim(valuelisteditor1.Values['sharepassword'])),pchar(trim(valuelisteditor1.Values['shareusername'])),
//用户名为Guest,口令为Password
CONNECT_UPDATE_PROFILE);
// if ErrInfo = NO_ERROR then
// messagebox(0, 'Net connection successful!', '', 0);
abai 2003-05-19
  • 打赏
  • 举报
回复
with NetSource do begin
dwType := RESOURCETYPE_ANY;
lpLocalName := 'x:';
// 将远程资源映射到此驱动器
lpRemoteName :=pchar(trim(self.ValueListEditor1.Values['serverlocation']));
// 远程网络资源
lpProvider := ''; // 必须赋值,如为空则使用lpRemoteName的值。
end;
ErrInfo := WnetAddConnection2(NetSource,pchar(trim(valuelisteditor1.Values['sharepassword'])),pchar(trim(valuelisteditor1.Values['shareusername'])),
//用户名为Guest,口令为Password
CONNECT_UPDATE_PROFILE);
// if ErrInfo = NO_ERROR then
// messagebox(0, 'Net connection successful!', '', 0);

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧