Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

22nd
Сен

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

Posted by Chas under Топик-обзор

Terran:

от замечательная функция для копирования:

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;