Hola.
Un ejemplo muuuy resumido ...
Código PHP:
void __fastcall TForm1::MyHandlerExcept(TObject* Sender, Exception* E)
{
ShowMessage(E->Message + "\n ( From MyHandlerExcept )");
};
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->OnException = MyHandlerExcept;
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *sl = new TStringList;
try {
sl->LoadFromFile("*:\uuuuu.uuu"); // forzar el error
}
__finally {
delete sl;
}
}
...
Saludos
