delphi怎样实现这样的文件复制?[悬赏50分]

Question

delphi怎样实现将一个文件从本地拷贝到网络上的其他机器(远程的)?给个思路.

Answer 1

function CopyDirectory(const Source, Dest: string): boolean;
///复制Source整个目录到DEST目录，如果Dest不存在，自动建立，如果DEST存在，那么Source将作为Dest的子目录！
//例如如果要复制E:\Temp整个目录到E:\那么代码为： copydirectory('e:\temp','e:\');
///如果要复制E:\Temp到E:\Test目录下面，那么代码为：CopyDirecotry('E:\Temp','E:\TEST');
var
 fo: TSHFILEOPSTRUCT;
begin
 FillChar(fo, SizeOf(fo), 0);
 with fo do
 begin
   Wnd := 0;
   wFunc := FO_COPY;
   pFrom := PChar(source+#0);
   pTo := PChar(Dest+#0);
   fFlags := FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR    ;
 end;
 Result := (SHFileOperation(fo) = 0);
end;

Answer 2

FileStruct : SHFILEOPSTRUCT;    FileStruct.Wnd := Handle;
    FileStruct.wFunc := FO_COPY;
    FileStruct.pFrom := pChar(CurrentPath+'*.*');
    FileStruct.pTo := pChar(InstallPath);
    FileStruct.fFlags := FOF_NOCONFIRMATION + FOF_SILENT;        //FOF_SILENT
    FileStruct.fAnyOperationsAborted := False;
    FileStruct.hNameMappings := nil;
    FileStruct.lpszProgressTitle := '';    if SHFileOperation(FileStruct) <> 0 then
        raise Exception.Create('文件复制过程发生错误!')
    本地可行，网络没试过