如何拷贝或者用ftp下载整个目录下的文件？

Question

uses
   shellapi;
procedure CopyDirectoryTree(AHandle:THandle; AFormDir, AToDir:string);
var SHFileOpStruct:TSHFileOpStruct;
begin
   with SHFileOpStruct do
   begin
      Wnd := AHandle;
      wFunc  FO_COPY;
      pFrom := PChar(AFromDir);
      PTo := PChar(AToDir);
      fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
      fAnyOperationsAborted := False;
      hNameMappings := nil;
      lpszProgressTitle := nil;
   end;
   ShFileOperation(SHFileOpStruct);
end;

Answer 1

　wangzh(独孤求问)，您给的函数怎么用呀？
我的水平实在太低，不知可否给个例子，让我明白
如何使用？

Answer 2

wangzh(独孤求问)的代码里还缺了一个单元的调用：filectrl。
至于函数的时，查看一下帮助吧，可以解释的是：
AFormDir, AToDir分别指源文件所在路经和目标路径

Answer 3

请教wangzh(独孤求问)，cobi(小新国际)　不好意思,请问
句柄handle的值怎么给?
能否
写一个调用的例子?
谢谢!