Как обработать ошибку прежде, чем программа уведомит об этом пользователя

Программа для тех, кто хочет быть в курсе новостей о появлении новых вирусов. Каждый день присылает вам на компьютер новый вирус.

Для фильтрации, к примеру, EConvertError, вы можете создать собственный обработчик исключений:

Приблизительно так:

Объявите следующую процедуру в объекте вашей главной формы:

procedure MyException(Sender:TObject; E:Exception);

Затем делайте так:

procedure TMyForm.MyException(Sender:TObject; E:Exception);
begin
  if (E.ClassType.ClassName='EConvertError') then
  begin
    {как-то общаемся с пользователем по-поводу ошибки}
  end
  else
    {позволяем Delphi показать ошибку}
    Application.ShowException(E);
end;

Наконец, позвольте приложению воспользоваться вашим новым обработчиком исключений:

procedure TMyForm.FormCreate(Sender: TObject);
begin
  Application.OnException := MyException;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 167 • TDictionary Custom Sort 3 341 • Fast Watermark Sources 3 095 • 3D Designer 4 851 • Sik Screen Capture 3 350 • Patch Maker 3 555 • Айболит (remote control) 3 665 • ListBox Drag & Drop 3 018 • Доска для игры Реверси 81 732 • Графические эффекты 3 948 • Рисование по маске 3 253 • Перетаскивание изображений 2 633 • Canvas Drawing 2 761 • Рисование Луны 2 586 • Поворот изображения 2 194 • Рисование стержней 2 170 • Paint on Shape 1 569 • Генератор кроссвордов 2 240 • Головоломка Paletto 1 769 • Теорема Монжа об окружностях 2 236 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 059 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 475 • Программа укладки плитки 1 219 • Генератор лабиринта 1 548 • Проверка числового ввода 1 367 • HEX View 1 497 • Физический маятник 1 359

Как обработать ошибку прежде, чем программа уведомит об этом пользователя

Похожие по теме исходники