[PupinZ]

доброе время соток,подскажите,как написать программный код с помощью которого программа могла бы сама себя сохранить.
(просмотрев исходники нашел антоним моему вопросу-удаление самой себя - http://www.delphisources.ru/pages/so...-self-exe.html -)
они могут быть как-то похожи?
спасибо,буду благодарен за помощь.

[lmikle]

Что значит "сохранить себя"? Скопировать исполняемый модуль? Дык это просто - CopyFile(Application.ExeName,'NewFileName.exe')

[PupinZ]

это поставить в процедуру нажатия исполняющей клавиши без каких-либо дополнительных заморочек? грубо говоря:
procedure TForm37.Button1Click(Sender: TObject);
begin
CopyFile(Application.ExeName,'NewFileName.exe')
end;

[PupinZ]

самой себя подразумевается сохранить в принципе ту папку в которой лежат все данные,связанные с проектом,в другое место,это по заданию так...
не сохранение только EXE файла...

[Страдалецъ]

Если это только файлы в каталоге приложения, то FindFirst,FindNext и вперед. Если это еще и каталоги в этой папке, то рекурсивный обход поможет, а если это еще и какие-то выборочно файлы в System32 или еще где, то тогда лучше по заранее подготовленному списку работать.

[PupinZ]

хорошо,спасибо)