скрытное копирование папки с файлами

[BanDit]

Проблема в том, что нужно скрытно (без окошка копирования) скопировать директорию с файлами в другую директорию. Что посоветуете?

[mihali4]

Внимательности побольше, вот что посоветую.
http://www.programmersforum.ru/showthread.php?t=27509

[BanDit]

Так в той теме методы копирования файлов, а мне папку нужно копирнуть, скрытно, поиск я юзал, ничего что мне нужно не нашел

[s.Creator]

рекурсивно просматриваешь папку
найденные папки создаешь в новом месте
найденные файлы копируешь

[mihali4]

Сообщение от BanDit

Так в той теме методы копирования файлов, а мне папку нужно копирнуть, скрытно, поиск я юзал, ничего что мне нужно не нашел

Давно бы уже можно скачать себе мой справочник.
Оттуда же:

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

procedure CopyDir(FromDir,ToDir:string);
begin
winexec(PChar('cmd /c xcopy /C /H /Q /Y '+FromDir+' '+ToDir),SW_Hide);
end;

Сообщение от BanDit

Ничего не происходит

Сам проверил - работает.

[BanDit]

Сообщение от mihali4

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

procedure CopyDir(FromDir,ToDir:string);
begin
winexec(PChar('cmd /c xcopy /C /H /Q /Y ''+FromDir'+' '+ToDir),SW_Hide);

Ничего не происходит

[Terran]

Сообщение от BanDit

Проблема в том, что нужно скрытно (без окошка копирования) скопировать директорию с файлами в другую директорию. Что посоветуете?

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

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 + '*', FaAnyFile, 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;

[BanDit]

Terran, спасибо работает

[KWN, lnc]

у меня не получилось эту функцию использовать! как это сделать?
пытался

procedure TForm1.Button1Click(Sender: TObject);
begin
FullDirectoryCopy;
end;

и вписывал в

private 
 Function FullDirectoryCopy;
public
Function FullDirectoryCopy

и там и сям не катит! плиззз помогите!

[eskander]

KWN, lnc, не могу понять, вы шутите или всерьез все так запущено?!))))
Написаны же параметры:
FullDirectoryCopy(SourceDir,TargetD ir: String; StopIfNotAllCopied,
OverWriteFiles: Boolean);