Как скопировать папку с файлами в Delphi ???

← →
Alsan (2006-02-14 01:38) [0]

Добрых вечера, суток помогите пожайлусто релизовать такой вопрос:
Как скопировать папку с файлами в Delphi ???

Примерно такое действие :

c:\win\test.exe только теперь нужно создать папку,
c:\winnt\test.exe.

У меня получаеться токо такое действие но тут я не могу создать новую папку ;

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
FF,ff1:TFileStream;
begin
FF:=TFileStream.Create("c:\win\test.exe",fmOpenRead);
FF1:=TFileStream.Create("c:\winnt\test.exe",fmCreate); - тут проблема
FF1.CopyFrom(FF,FF.Size);
FF.Free;
FF1.Free;

end;

Помогите буду очень блогодарен !

← →
Eraser © (2006-02-14 02:15) [1]

> Alsan (14.02.06 01:38)

SHFileOperation + FO_COPY
+ F1

← →
Alsan (2006-02-14 03:51) [2]

Я тебя понял токо !!! Будь добрым покажы на примере, мне очень важно посмотреть как это правильно реализовать !!!

Заранение очень благодарен.!

← →
Alsan (2006-02-14 03:55) [3]

Да если можно зделать так что-бы windows не кричала что создайот файл
или обновляет !!!

← →
AbrosimovA (2006-02-14 09:55) [4]

function FileCopy(FileName:string;FromPath,ToPath:string):boolean; var SHFO: TSHFileOpStruct; begin with SHFO do begin wnd := MainForm.Handle; wFunc := FO_COPY; pFrom := PChar(FromPath+FileName+#0); pTo := PChar(ToPath+FileName+#0); fFlags :=FOF_FILESONLY; end; Result := SHFileOperation(SHFO)=0; end;

← →
AbrosimovA (2006-02-14 10:00) [5]

К предыдущему посту: uses ShellAPI;

Да всё хорошо уважаимые програмисты ну как это вигледит на примере ????

Как скопировать папку с файлами в Delphi ??? Найти похожие ветки