Скачать: CL | DM;

Как скопировать папку с файлами в 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;

---

← →
Aslan ©   (2006-02-14 15:41) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.03 c