CopyFile Normal :
CopyFile Com Mensagem :
CopyFile Com Edit :
CopyFile('Local
do Arquivop\Nome do
Arquivo', 'Destino do
Arquivo\Nome do Arquivo',
True);
CopyFile Com Mensagem :
If Not
CopyFile('Local do Arquivop\Nome do
Arquivo',
'Destino do Arquivo\Nome do Arquivo',
false) then
begin
ShowMessage('Erro') end // Mensagem Caso de Erro
else
ShowMessage('Ativado com Sucesso!'); // Mensagem
Caso Naum
de Erro
end;
CopyFile Com Edit :
If Not CopyFile(PChar('Local do Arquivo\Nome do Arquivo'),
PChar(edit1.text+'\Pasta Referencia\Nome do Arquivo'),
false)then