1,594
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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);
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);
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);
