求教！很急得一个问题，请各位帮忙！在线等！ ( 积分: 100 )

知道另一台计算机的用户名和密码，怎样才能让程序拷贝指定的文件到另一台机子上呢？

知道另一台计算机的用户名和密码，怎样才能让程序拷贝指定的文件到另一台机子上呢？

要用程序实现另一台机器的登录，然后建立一个完全共享的文件夹，然后拷贝文件。

以前看到过一个用程序建文件夹并拷贝文件的帖子，
是个在客户端实现服务器数据库备份的帖子，找找去。

操作系统、共享情况、防火墙等软件环境都要考虑。如果是xp禁止了远程登录，你也是奈何不了它。

另一台机子是固定的，2000系统，防火墙等都不用考虑，共享文件夹我们可以设置。关键是怎样让程序自动登录（现在每次都得手动登录一次才行）

1、映射一个网络盘
WNetAddConnection2(...)
2、CopyFile();

2000下的登录及共享早已有了解决方案，你去搜一下就可以了。我家里有调试过的代码。另外你也可以把它做成映射驱动器，那样更方便。

我已经找了好多地方了，没有找到啊!

映射驱动器

//将 //192.168.1.123/ShareDoc 映射为 X: 盘
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
NRW: TNetResource;
begin
with NRW do
begin
dwType := RESOURCETYPE_ANY;
lpLocalName := pChar(Edit2.Text); // Edit2.Text := X:
lpRemoteName := pChar(Edit1.Text); // //192.168.1.123/ShareDoc
lpProvider := '';
end;
WNetAddConnection2(NRW, 'cxg', 'cxg', CONNECT_UPDATE_PROFILE);
end;

end.

多人接受答案了。