VPF::Вопрос по закрытию программы - Форум программистов

danmar

Дата 26.10.2003, 19:49 (ссылка)

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

Загрузка ...

Новичок

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

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

Как грамотно закрыть программу на Delphi, например, из обработчика OnCreate, чтобы OnCreate дальше не выполнялся (любые способы кроме Close). Или как онозначно прекратить выполнение программы из какой-либо процедуры, чтобы процедура дальше не выполнялась. А то эта неопределенность так уже достала!!!

<Spawn>

Дата 26.10.2003, 19:59 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Прекратить выполнение процедуры - exit;
если тебе нужно завершить работу программы во время ее начала ее выполнения то делаешь это:
Открываешь DPR файл любым текстовым редактором, или в самой Delphi. Появится что то типа этого:

Код

program MyProgramm;

uses
  Forms,
  ....

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TfASM, fASM);
  Application.Run;
end.

Вот тут ты и делаешь свои проверки, т.е.

Код

begin
  //Тут ставишь свой код
  //Если нужно обломать все дальнейшее выполнение программы, то вызываешь Halt
  Application.Initialize;
  Application.CreateForm(TfASM, fASM);
  Application.Run;
end.

Это сообщение отредактировал(а) <Spawn> - 26.10.2003, 20:00

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

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

<Spawn>

Дата 26.10.2003, 20:03 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Я ошибся для нормального завершения Halt не нужен)) Можно просто условие поставить.

Это сообщение отредактировал(а) <Spawn> - 26.10.2003, 20:05

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

Baa

Дата 26.10.2003, 20:11 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2639
Регистрация: 12.4.2002
Где: Москва

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

Application.Terminate;

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

"Duty is everything; the greatest of joys, the deepest of sorrows" Aribeth de Tylmarande

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