Estou querendo gravar em um arquivo texto qualquer exceção que acontecer no sistema.
Estou utilizando o componente Application EventsApplication Events
da paleta additional.
Abaixo segue o exemplo do codigo:
procedure TfmPrototipo.ApplicationEventsException(Sender: TObject;
E:Exception);
var
NomeArquivo: string;
Arquivo: TextFile;
begin
NomeArquivo := ChangeFileExt(Application.Exename, '.log');
AssignFile(Arquivo, NomeArquivo);
if FileExists(NomeArquivo) then
Append(arquivo)
else
ReWrite(arquivo);
try
WriteLn(arquivo, 'Data: '+ DateTimeToStr(Now));
WriteLn(arquivo, 'Erro: ' + E.Message );
WriteLn(arquivo, '------------------------------------------- ');
Application.ShowException(E);
finally
CloseFile(arquivo);
end;
end;
O problema que em algumas telas do sistemas é utilizado o
try - excepttry - except
, o mesmo apresenta a mensagem e não chama o evento onExceptiononException
do componente.