Функция копирования, функция копирования файла.
copyfile (
LPCSTR LPEXISISINGFILENAME, // ПАТИ исходного файла
lpcstr lpnewfilename, // новый путь файла
Bool bfailifexists // Если истина, если новый файл уже существует, верните false;
крышка.
);
Функция возвращает истину для успеха и ложь для неудачи;
Пример:
CopyFile (pchar ('sql.txt'), pchar (extractfilepath (application.exename) + '2.txt'), true);
Позже, при экспериментировании я обнаружил, что исходный файл может быть преобразован без добавления функции pchar, но новый файл не может быть использован, и произойдет ошибка типа.
Используйте этот каталог программы.
Поскольку функция возвращает логический тип, она также может быть написана так:
if copyfile ('d: /yun_yue/sql.txt', pchar (extractfilepath (application.exename) +' 2.txt '), true) тогда
// И, пожалуйста, убедитесь, что ваш путь файла верен, в противном случае функция возвращает неудачу.
ShowMessage ('Copy File завершен!')
еще
ShowMessage ('Copy File не удастся!');
Функция копирования также может быть скопирована с файлами в сетевых соседях.
Если copyfile ('// sh-sfis/yun_yue/yun_yue/copytext.txt', pchar (extractfilepath (application.exename) + '2.txt'), false) тогда
// Установление третьего параметра функции здесь в False будет перезаписать файл «2.txt», который существует в этом каталоге моего приложения.
ShowMessage ('Copy File завершен!')
еще
ShowMessage ('Copy File не удастся!');