[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'