关于delphi编程的网络文件夹复制的代码精要

首先必须引用windows api函数库 shellapi

***************************以下为复制文件夹的代码*********************************

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;