как скопировать файл?

[BioNoob]

Подскажите как скопировать файл который находится в одном и том же каталоге что и экзешник?

[TorrentTor]

CopyFile(lpExistingFileName, lpNewFileName: PChar; bFailIfExists: BOOL): BOOL;

Параметры:
lpExistingFileName: Строка к имени файлу источника.

lpNewFileName: Строка имени нового файла.

bFailIfExists:параметр определяет поведение функции в том случае если файл lpNewFileName уже существует. Если параметр True и файл существует, то функция терпит неудачу. В противном случае функция перезапишет файл.

Возвращаемые значения
Если успешно то не ноль.
Если функция терпит неудачу - ноль. Чтобы получить расширенную информацию об ошибке, вызовите функцию GetLastError.

[TorrentTor]

ExtractFilePath(Application.ExeName)

Путь к программе, думаю дальше можно до соображать =)