Как да копирате папка с файлове в Delphi

Добър вечер, ден, моля, помогнете ми да пусна този въпрос: Как да копирам папка с файлове в 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;

Помощ ще съм много благодарен!

Токо те разбрах. Моля, покажете ми с пример, за мен е много важно да видя как да го прилагам правилно.

Благодаря много предварително!

Да, ако можете да го създадете, така че Windows да не крещи, че създава файл или актуализира.

функция 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; Резултат := SHFileOperation(SHFO)=0; end;

Към предишния пост: използва ShellAPI;

Да, всичко е добре уважавани програмисти, добре, как изглежда на пример.

---