Завершить работу программы с диалогом ошибки

Автор:

procedure Halt (ExitValue : Integer);

Процедура Halt останавливает программу с диалогом ошибки. Вынуждает резкое завершение текущего приложения. Не гарантируется, что ресурсы будут освобождены при вызове halt.

Входящий параметр ExitValue может быть установлен произвольно. Этот код передается прерывателю приложения, как код возврата от приложения.

Как же показать диалог ошибки?

var i : Integer;
begin
 errorAddr := Addr(i);
 halt(1);
end;

Если значение ErrorAddr уже было присвоено, перед тем как был вызван Halt, то диалог отображается, показывая значение ErrorAddr, иначе не отобразится. После выполнения Halt, перед фактическим завершением программы, выполняется секция модуля finalization.

P.S. Функция Close не завершает работу программы, если её вызвать в событии onCreate формы. Иногда необходимо завершить работу программы именно в этом событии, например если во время загрузки произошла ошибка. Выход очень прост - просто вместо процедуры Close использовать процедуру Halt без параметров.

procedure TForm1.FormCreate(Sender: TObject);
begin
 halt;
end;

Просмотров: 8178

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.