如何拷贝网络文件

[zxp83723]

用API函数copyfile来拷贝网络文件，需要预先登录过目标机器及获取过登录凭证，如
CopyFile('d:\test.mp3', '\\192.168.0.20\share\test.mp3', false);但如何在未登录目标机器时实现拷贝呢，有目标机器的IP，登录用户名和密码。

[postren]

先建立连接

//==============================================================================
// Function: 和局域网共享建立连接
//Parameters: RemoteServerName共享路径，如\\192.168.0.1\c$
// UserName用户名，Password密码
// Result: 成功返回True
//==============================================================================
function ConnectServer(RemoteServerName, UserName, Password: string): Boolean;
var
NetSource: TNetResource;
Errinfo: LongWord;
begin
with NetSource do begin
dwScope := RESOURCE_CONNECTED;
dwType := RESOURCETYPE_DISK;
dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;
dwUsage := 0;
lpLocalName := nil;
lpRemoteName := PChar(RemoteServerName);
lpComment := nil;
lpProvider := nil;
end;
ErrInfo := WnetAddConnection2(NetSource, pchar(password), pchar(username), 0);
Result := (ErrInfo = NO_ERROR);
end;

[postren]

建立连接成功后再copy就没问题了

[zxp83723]

多谢postren(小虫) 指导，但我用这个方法怎么不能连接成功啊，ErrInfo 总返回1024，不知道是什么错误。

[zxp83723]

lpRemoteName 是不是需要用远程计算机名加上共享的目录名阿，如:\\server1\share

[postren]

应该问题不大吧，我测试通过的