怎么实现上传文件到局域网内一台机器上 ( 积分: 50 )

我想用copytofile(source_file,Destination_file)实现文件上传，但source_file=//主机名/source/上传文件中遇到问题：登录主机时会出现登录验证（有用户名、密码）。怎么在程序中实现登录身份自动验证？（我事先知道该主机的用户名及密码）？？急！

我想用copytofile(source_file,Destination_file)实现文件上传，但source_file=//主机名/source/上传文件中遇到问题：登录主机时会出现登录验证（有用户名、密码）。怎么在程序中实现登录身份自动验证？（我事先知道该主机的用户名及密码）？？急！

有2种做法 象你说用共享目录得形式 可以先执行net send命令发送一下用户密码；或者你做一个FTP服务器 ，用FTP得形式上传文件！

net send在delphi中怎么用代码实现？

我是想在执行copyfileto之前，自动实现登录网络上的服务器而不需要手工输入登录用户名及密码，需要程序来实现自动身份验证！怎么实现？高手请进！

这是迷糊老兄帮我解决的，楼主稍微修改就可以使用了：
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
WNetConnectionDialog(handle,RESOURCETYPE_DISK);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if WNetCancelConnection2(pchar('x:'),0,false)=NO_ERROR then
Application.MessageBox('X: 断开成功','提示')
else Application.MessageBox('X: 断开失败','提示')
end;

procedure TForm1.Button3Click(Sender: TObject);
function AddShareDriver(localname,remotename,username,password:string):boolean;
var
NetSource : TNetResource;
begin
with NetSource do
begin
dwType := RESOURCETYPE_disk;
lpLocalName :=pchar(localname);
lpRemoteName :=pchar(remotename);
lpProvider :='';
end;

result:=WnetAddConnection2(NetSource,pchar(password),pchar(username),CONNECT_UPDATE_PROFILE)=NO_ERROR;
end;
begin
if AddShareDriver('X:','//172.16.5.2/f','temp','') then
Application.MessageBox('X:=172.16.5.2/f，映射成功！','提示')
else Application.MessageBox('X:=172.16.5.2/f，映射失败！','提示')
end;

end.