[Gareth]

Сообщение от Alegun

Повторяюсь, скопируйте функцию по ссылке во 2 посте, затем делайте так

Код:

CopyFiles(ExtractFileDir(ParamSTR(0)) + '\Data', sEdit1.Text);

где '\Data' имя папки с копируемыми файлами, а sEdit1.Text путь к папке куда эти файлы нужно скопировать, что не понятно?

[Error] Unit1.pas(50): Incompatible types: 'procedure, untyped pointer or untyped parameter' and 'PAnsiChar'

[Alegun]

Вот пример


З.Ы.

Чтоб вопросов при замене имён копируемых файлов не возникало нужно флажок структуры Fo.fFlags вместо нуля установить как FOF_NOCONFIRMATION

Подробнее тут

[Gareth]

Сообщение от Alegun

Вот пример

Ну наконец-то!!! Спасибо величайшее ))
Желаю приятного дня)) спасибо еще раз) всё работает.

[NumLock]

Сообщение от Gareth

Unsafe Type 'Pchar'

сними галочки: