这段程序为什么只能在9x下执行,如何改为在2000 也能运行??????????????????????????(100分)

  • 主题发起人 主题发起人 heqian
  • 开始时间 开始时间
H

heqian

Unregistered / Unconfirmed
GUEST, unregistred user!
需要登陆的机器为2000server
客户端为9x或者2000
可是下面程序只能在9x下执行;

var
netresource:Tnetresource;
re:dword;
begin
netresource.dwScope:=RESOURCE_GLOBALNET;
netresource.dwUsage:=RESOURCEUSAGE_CONNECTABLE;
netresource.dwType:=RESOURCETYPE_DISK;
netresource.dwDisplayType:=RESOURCEDISPLAYTYPE_SHARE;//SERVER;
netresource.lpLocalName:='';
netresource.lpRemoteName:='//server/$dir$/';
netresource.lpProvider:='';
re:=WNetAddConnection3(
application.Handle,
netresource,
'password',
'administrator',
CONNECT_UPDATE_PROFILE
);
if re<>NO_ERROR then
begin
application.MessageBox('无法连接到服务器,请与系统管理员联系','系统提示',mb_ok);
application.Terminate;
end;
end;



如果在2000下执行
winexec('net use //server password ',0);
如何判断网络登陆成功???????????????
 
就我做道,在98,2K用WNetAddConnection3是没问题的,你要检查的是登陆的机器2000server有否共享资源,你的"Administrator",password是否正确!
 
都正确呀!!!要登陆的机器是一个呀!!!!没有变化,我分别用两个系统ME 、2000登陆
服务器没有变化!!!
在2000下可能能登陆网络,可是,返回值总是不等于NO_ERROR
所以也就退出程序不在继续执行了!!为什么????
 
netresource.lpRemoteName:='//server[red]/$dir$/[/red]';

我试了一下,将红色部分去掉就可以了!!!!
 
接受答案了.
 
后退
顶部