| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как скопировать папку с файлами в Delphi ??? [D6, Win2k]

Alsan ©   (2006-02-14 01:38:00) 

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

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

---

Aslan   (2006-02-14 15:41:00) [1]

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

---

AbrosimovA   (2006-02-14 10:00:00) [2]

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

---

AbrosimovA   (2006-02-14 09:55:00) [3]

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;

---

Alsan   (2006-02-14 03:55:00) [4]

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

---

Alsan   (2006-02-14 03:51:00) [5]

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

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

---

Eraser   (2006-02-14 02:15:00) [6]

> Alsan   (14.02.06 01:38)

SHFileOperation + FO_COPY
+ F1

---

Наверх