![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос несколько раз обсуждался, но всё равно не получается
Новеньки в Делфи © (2002-06-02 15:48:00)Так как всё таки сделать что бы файл скопировал сам себя в нужную дирректорию?
Смотрел статьи здесь не эту тему, но там были показаны грамоздкие способы, есть способ легче?
Видел Song предложил CopyFile(); но ни чего не получается, ф-ция возвращает true, но файл не копируется:(
Song (2002-06-03 08:30:00) [1]Через SHFileOperation или через TSearchRec или запуском командного процессора.
Sherbacov (2002-06-02 22:47:00) [2]Как скопировать все файлы из одной директории в другую, как создать такой фильтр?
Новеньки в Делфи (2002-06-02 18:02:00) [3]Мастера, прошу прощение :) ... я пытался скопировать в несуществующую дирректорию в надежде что функция сама создаст, оказывается нужно предварительно mkDir()-ом создать.
Благодарю за помощь.
Anatoly Podgoretsky (2002-06-02 16:33:00) [4]Новеньки в Делфи (02.06.02 15:48)
Код давай
Song (2002-06-02 16:03:00) [5]Уважаемый Новеньки в Делфи, вот только что проверил. Работает!
procedure TForm1.FormCreate(Sender: TObject);
begin
CopyFile(PChar(Application.ExeName),PChar("c:\"+ExtractFileName(Application.ExeName)),True);
end;
MrAngel (2002-06-02 15:55:00) [6]Естественно через CreateFile !!! Или ещё можно через _lCreat
Есть ещё способ использовать TFileStream