如何访问网络中的共享文件(100分)

我试图用findfirst()访问映射盘或网络中共享的文件后用assignfile()来打开它，都失败了，但如果放在本机上
就没有问题，我想可能是路径的原因，该如何解决，望高手指点

试试在网上邻居里能不能打开，如果能的话，铁上来你的代码，检查代码中的问题

问题：在程序中如何访问网上邻居共享目录 ? (WIN98) ( 积分：5, 回复：4, 阅读：103 )
分类：数据库-C/S型 ( 版主：千中元, luyear )
来自：gdljc, 时间：2002-5-21 18:22:00, ID：1114917 [显示：小字体 | 大字体]
在程序中如何访问网上邻居中加了密码的完全共享目录（知道密码），即自己知道共享密码，
但访问时不用输入，而在程序中完成。


来自：gdljc, 时间：2002-5-23 10:07:00, ID：1118564
有哪位高手可以回答吗？


来自：agangr, 时间：2002-5-23 10:27:00, ID：1118617
with NRW do
begin
dwType := RESOURCETYPE_ANY;
// lpLocalName := ''; // map to this driver letter
lpRemoteName := PChar(orders);//共享机器的名字
// Must be filled in. If an empty string is used,
// it will use the lpRemoteName.
lpProvider := '';
end;
WNetAddConnection2(NRW, PChar(passsword), PChar(usename),CONNECT_UPDATE_PROFILE);

var
tmpinifile:Tinifile;
tmpa_pfile,tmpp_afile,tmpbakdir:string;
TmpFile:TextFile;
filename,tmpfilename:string;
sr: TSearchRec;
FileAttrs: Integer;
begin
fileattrs:=faanyfile;
try
if findfirst(filename,fileattrs,sr)=0 then
begin
tmpfilename:=tmpinifile.ReadString('comm','lastp10','20030101.p10');
if tmpfilename<sr.Name then
begin
tmpfilename:=sr.Name;
end;
while findnext(sr)=0 do
begin
if tmpfilename<sr.Name then
begin
tmpfilename:=sr.Name;
end;
end;
LogMessage( formatdatetime('yyyymmddhhnn',now)+' '+sr.name+' 开始有效卡数据入库', EVENTLOG_INFORMATION_TYPE );
AssignFile(tmpfile,tmpp_afile+'/'+tmpfilename);
try
Reset(TmpFile);
if not Eof(TmpFile) then


.................................

BDFan，拜托你写的详细一点啊，NRW是个什么东西啊？