Скрытное копирование каталога

Function FullDirectoryCopy(SourceDir,TargetDir: String; StopIfNotAllCopied,
OverWriteFiles: Boolean): Boolean;
Var
    SR: TSearchRec;
    I: Integer;
Begin
    Result:=False;
    SourceDir:= IncludeTrailingBackslash(SourceDir);
    TargetDir:= IncludeTrailingBackslash(TargetDir);
    If Not DirectoryExists(SourceDir) Then Exit;
    If Not ForceDirectories(TargetDir) Then Exit;
    I:=FindFirst(SourceDir + ‘*’, FaAnyFil
e, SR);
    Try
        While I = 0 Do
        Begin
            If (SR.Name <> ”) And (SR.Name <> ‘.’) And (SR.Name <> ‘..’) Then
            Begin
                If SR.Attr = FaDirectory Then
                Result:= FullDirectoryCopy(SourceDir + SR.Name, TargetDir + SR.NAME, StopIfNotAllCopied, OverWriteFiles)
                Else If Not (Not OverWriteFiles And FileExists(TargetDir + SR.Name)) Then
                Result:= CopyFile(Pchar(SourceDir + SR.Name), Pchar(TargetDir + SR.Name),
False)
                Else Result:=True;
                If Not Result And StopIfNotAllCopied Then Exit;
            End;
            I:=FindNext(SR);
        End;
    Finally
        SysUtils.FindClose(SR);
    End;
End;