1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TMainForm.CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_SIMPLEPROGRESS;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;					

1:

CopyDir(GetEnvironmentVariable('USERPROFILE'), ExtractFilePath(ParamStr(0))+'Backup\')					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure CopyNonHiddenFilesRecrsv( strSrcDir, strDstDir : String;
  const strMask : String );
var
  SR            : TSearchRec;
  strSearchPath : String;
  nAttr         : Integer;
begin
  strSrcDir     := IncludeTrailingBackslash( strSrcDir );
  strDstDir     := IncludeTrailingBackslash( strDstDir );

  strSearchPath := strSrcDir + strMask;
  nAttr         := ( faAnyFile and faDirectory and not faHidden );

  CreateDir( strDstDir );

  if ( FindFirst(strSearchPath, nAttr, SR) = 0 ) then
  try
    repeat
      if ( (SR.Attr and faDirectory) <> faDirectory ) then
        CopyFile( PChar(strSrcDir + SR.Name), PChar(strDstDir + SR.Name), False )
      else if ( (SR.Name <> '.') and (SR.Name <> '..') ) then
          CopyNonHiddenFilesRecrsv( PChar(strSrcDir + SR.Name), PChar(strDstDir + SR.Name),
            strMask );
    until ( FindNext(SR) <> 0 );
  finally
    FindClose( SR );
  end;
end;					

1:

CopyNonHiddenFilesRecrsv( GetEnvironmentVariable('USERPROFILE'), ExtractFilePath(ParamStr(0)) + 'Backup\', '*.*' );