VPF::убрать ВСЕ сообщения об ошибке

Cashey

Дата 10.2.2009, 12:22 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 2
Всего: 60

иногда в программе возникают ошибки. ну сами по себе ошибки в данной теме не важны, но очень важно, что бы сообщения не показывались пользоваетлю, ну что бы не выскакивало диалогового окна с сообщением об ошибке. причем иногда выскакивают сообщения от winapi функций. можно ли в программе как то глобально подавить вывод сообщений об ошибке? а в идеале перенаправить вывод в текстовый файл.

--------------------

библия учит любить ближнего, а камасутра обучает как именно

spider13

Дата 10.2.2009, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 7.2.2009

Репутация: нет
Всего: нет

В обьекте TApplicationEvents есть действие OnException, можешь его перехватывать.

Virtuals

Дата 10.2.2009, 13:54 (ссылка)

(голосов:1)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 3
Всего: 11

Код


Procedure TForm1.MyExcept(Sender:TObject; E:Exception);
begin
{
If E is Exception then
MessageDlg(inttostr(E.HelpContext)+' Перехвачено исключение '+E.Message , mtInformation, [mbOk], 0)
else
MessageDlg('Перехвачено другое исключение '+E.Message , mtInformation, [mbOk], 0);
}
{ если это не та ошибка, которую вы ищете, передайте на обработку дальше }
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyExcept;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »