网络映射

[abai]

密码登陆异机共享

[abai]

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);

[jjpan]

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);