Función CopyFile, función de copia de archivo.
CopyFile (
LPCSTR LPEXISTINGFILENAME, // ruta de archivo de origen
LPCSTR LPNEWFileName, // Ruta de archivo nuevo
bool bfailifexists // Si es verdadero, si el nuevo archivo ya existe, devuelve falso;
cubrir.
);
函數成功返回true,失敗返回false;
Ejemplo:
CopyFile(pChar('sql.txt'),pChar(ExtractFilePath(application.ExeName) + '2.txt'),true);
Más tarde, al experimentar, descubrí que el archivo de origen se puede convertir sin agregar la función PCHAR, pero el nuevo archivo no se puede usar y se producirá un error de conversión de tipo.
Use este directorio del programa.
Debido a que la función devuelve un tipo booleano, también se puede escribir así:
if copyfile ('d: /yun_yue/sql.txt',pchar (extractFilePath (application.exename) +' 2.txt '), true) entonces entonces
// y, por favor, asegúrese de que la ruta de su archivo sea correcta, de lo contrario, la función devuelve falla.
ShowMessage ('¡Copiar archivo completado!')
demás
ShowMessage ('¡Copiar archivo fallido!');
CopyFile函數還可以用與在網絡鄰居中的文件復制,使用上面的例子,可以將格式改為如下:
if CopyFile('//sh-sfis/Yun_Yue/yun_yue/Copytext.txt',pChar(ExtractFilePath(Application.ExeName) + '2.txt'),false) then
// Configuración del tercer parámetro de la función aquí en falso sobrescribirá el archivo '2.txt' que existe en este directorio de mi aplicación.
ShowMessage ('¡Copiar archivo completado!')
demás
ShowMessage ('¡Copiar archivo fallido!');