网络映射

abai 2003-05-19 12:26:53
密码登陆异机共享
...全文
6 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
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);
回复
相关推荐
发帖
网络通信/分布式开发
创建于2007-08-02

1573

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2003-05-19 12:26
社区公告
暂无公告