Função de copiar, função de cópia de arquivo.
CopyFile (
LPCSTR lpexistingFileName, // Caminho do arquivo de origem
LPCSTR LPNewFileName, // NOVO CATO DE ARQUIVO
bool bfailifexists // Se verdadeiro, se o novo arquivo já existir, retorne false;
cobrir.
);
A função retorna true para o sucesso e falsa para falha;
Exemplo:
CopyFile (PChar ('sql.txt'), PChar (ExtractFilePath (Application.exename) + '2.txt'), true);
Posteriormente, ao experimentar, descobri que o arquivo de origem pode ser convertido sem adicionar a função PChar, mas o novo arquivo não pode ser usado e um erro de conversão de tipo ocorrerá.
Use este diretório do programa.
Como a função retorna um tipo booleano, também pode ser escrito assim:
se copyfile ('d: /yun_yue/sql.txt'.pchar (extraCtFilePath (application.exename) +' 2.txt '), true) então
// e, verifique se o caminho do arquivo está correto, caso contrário, a função retorna falhar.
ShowMessage ('Arquivo de cópia concluído!')
outro
ShowMessage ('Arquivo de cópia falhou!');
A função CopyFile também pode ser copiada com arquivos nos vizinhos da rede.
Se copyfile ('// sh-sfis/yun_yue/yun_yue/copytext.txt', pchar (extraCTFilePath (application.exename) + '2.txt'), false) então
// Definir o terceiro parâmetro da função aqui como false substituirá o arquivo '2.txt' que existe neste diretório do meu aplicativo.
ShowMessage ('Arquivo de cópia concluído!')
outro
ShowMessage ('Arquivo de cópia falhou!');