Карта сайтаСсылкиКонтакты

Как закрыть приложение с сообщением о фатальной ошибке

PDF Печать
Статьи

Как закрыть программу с предупреждающим сообщением пользователю о фатальной ошибке?

Приложение закрывается с сообщением о неустранимой ошибке

procedure TForm1.btnCloseClick(Sender: TObject);
begin
  FatalAppExit(
      0, 'Произошла неустранимая ошибка. ' +
      'Приложение будет закрыто. ' +
      'Пожалуйста, обратитесь в службу поддержки!');
end;

Функция FatalAppExit API Win32 показывает диалоговое окно с передаваемым сообщением в качестве второго параметра. Когда диалоговое окно закрывается, приложение заканчивает работу. Событие OnCloseQuery форм не вызывается, когда мы используем эту функцию.


 

Добавить комментарий


Защитный код
Обновить