江
江南好汉
Unregistered / Unconfirmed
GUEST, unregistred user!
将指定的局域网资源映射到本地，输入计算机名可实现，但输IP地址就不行了。
如何改进？？我涉及到跨网段访问需用IP地址
procedure TForm1.Button1Click(Sender : TObject);
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName :=Pchar(edit2.text);
// 将远程资源映射到此驱动器
lpRemoteName :=pchar(edit1.text);
// 远程网络资源
lpProvider := '';
// 必须赋值,如为空则使用lpRemoteName的值。
end;
if WnetAddConnection2(NetSource, pchar(edit4.text), pchar(edit3.text), CONNECT_UPDATE_PROFILE)=NO_ERROR
//用户名为Guest，口令为Password,下次登录时重新连接,此时在Windows资源管理器中可看到网络驱动器：
then //映射成功
showmessage(edit1.text+'成功映射成'+edit2.text)
else
showmessage('映射失败！');
end;
如何改进？？我涉及到跨网段访问需用IP地址
procedure TForm1.Button1Click(Sender : TObject);
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName :=Pchar(edit2.text);
// 将远程资源映射到此驱动器
lpRemoteName :=pchar(edit1.text);
// 远程网络资源
lpProvider := '';
// 必须赋值,如为空则使用lpRemoteName的值。
end;
if WnetAddConnection2(NetSource, pchar(edit4.text), pchar(edit3.text), CONNECT_UPDATE_PROFILE)=NO_ERROR
//用户名为Guest，口令为Password,下次登录时重新连接,此时在Windows资源管理器中可看到网络驱动器：
then //映射成功
showmessage(edit1.text+'成功映射成'+edit2.text)
else
showmessage('映射失败！');
end;