Вопрос несколько раз обсуждался, но всё равно не получается

← →
Новеньки в Делфи (2002-06-02 15:48) [0]

Так как всё таки сделать что бы файл скопировал сам себя в нужную дирректорию?
Смотрел статьи здесь не эту тему, но там были показаны грамоздкие способы, есть способ легче?
Видел Song предложил CopyFile(); но ни чего не получается, ф-ция возвращает true, но файл не копируется:(

← →
MrAngel © (2002-06-02 15:55) [1]

Естественно через CreateFile !!! Или ещё можно через _lCreat

Есть ещё способ использовать TFileStream

← →
Song © (2002-06-02 16:03) [2]

Уважаемый Новеньки в Делфи, вот только что проверил. Работает!

procedure TForm1.FormCreate(Sender: TObject);
begin
CopyFile(PChar(Application.ExeName),PChar("c:\"+ExtractFileName(Application.ExeName)),True);
end;

← →
Anatoly Podgoretsky © (2002-06-02 16:33) [3]

Новеньки в Делфи (02.06.02 15:48)
Код давай

← →
Новеньки в Делфи (2002-06-02 18:02) [4]

Мастера, прошу прощение :) ... я пытался скопировать в несуществующую дирректорию в надежде что функция сама создаст, оказывается нужно предварительно mkDir()-ом создать.

Благодарю за помощь.

Как скопировать все файлы из одной директории в другую, как создать такой фильтр?

Через SHFileOperation или через TSearchRec или запуском командного процессора.

Вопрос несколько раз обсуждался, но всё равно не получается Найти похожие ветки