Подписаться на RSS рассылку
Главная » Статьи по Delphi » Диалоговые окна » Завершить работу программы с диалогом ошибки

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

Автор: Борисов Сергей

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;

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

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


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта