(Resolvido) Try Except

[Eder]

Ola...

alguém poderia me ajudar e dizer porque o try except não funciona neste caso:

procedure TForm1.XiButton1Click(Sender: TObject);
begin
TRY
CopyFile('c:\teste\carro.exe','c:\casa\carro.exe',false);
EXCEPT
SHOWMESSAGE('Erro arquivo não existe!!');
end;
END;

no caso acima nem a pasta e nem os arquivos existentes na maquina, portanto ele deveria mandar a mensagem pro usuario, mas não manda nada acontece.

Grato

[Churc]

Opa

Acontece que a funcao copyfile não da uma exception (erro) quando não copia o arquivo, então como não há

exceção (erro) o except não funciona.

no caso ela retorna True ou False como resultado

if CopyFile('c:\teste\carro.exe','c:\casa\carro.exe',false) then

Copiado else

não copiado.

abraços

[Eder]

Oba...entendido.

falou

abraço :)