delphi拷贝整个目录(包括子目录)

function CopyDirAll(sDirName:String;sToDirName:String):Boolean;
var
   hFindFile:Cardinal;      //拷贝整个目录(包括子目录)
   t,tfile:String;
   sCurDir:String[255];
   FindFileData:WIN32_FIND_DATA;
begin
   //先保存当前目录
   sCurDir:=GetCurrentDir;
   ChDir(sDirName);
   hFindFile:=FindFirstFile('*.*',FindFileData);
   if hFindFile<>INVALID_HANDLE_VALUE then
   begin
    if not DirectoryExists(sToDirName) then
      ForceDirectories(sToDirName);
    repeat
      tfile:=FindFileData.cFileName;
      if (tfile='.') or (tfile='..') then
         Continue;
      if FindFileData.dwFileAttributes=FILE_ATTRIBUTE_DIRECTORY then
      begin
         t:=sToDirName+'\'+tfile;
         if  not DirectoryExists(t) then
             ForceDirectories(t);
         if sDirName[Length(sDirName)]<>'\' then
            CopyDirAll(sDirName+'\'+tfile,t)
         else
            CopyDirAll(sDirName+tfile,sToDirName+tfile);
      end
      else
      begin
           t:=sToDirName+'\'+tFile;
           CopyFile(PChar(tfile),PChar(t),True);
      end;
    until FindNextFile(hFindFile,FindFileData)=false;

    Windows.FindClose(hFindFile);
   end
   else
   begin
        ChDir(sCurDir);
        result:=false;
        exit;
   end;
   //回到原来的目录下
   ChDir(sCurDir);
   result:=true;
end;

本文出自 “韩宇斌-大道源于生活” 博客，谢绝转载！