| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как прекратить выполнение программы в процессе инициализации? [D7, Win2k, WinXP]

Kot_ ©   (2006-01-05 13:03:00) 

Есть код:

  Application.Initialize;
 Application.CreateForm(TFormPredpr, FormPredpr);
 Application.CreateForm(TFormIdentif, FormIdentif);
 FormIdentif.ShowModal;
 if closeprog=true then exit;
 Application.CreateForm(TFormLicevoi, FormLicevoi);
 Application.Run;

Выполнение программы прерывается, но выдается ошибка: «Runtime error 216 at 00403472», как этого избежать?

---

Плохиш   (2006-01-05 13:39:00) [1]


if not closeprog then
begin
  Application.CreateForm(TFormLicevoi, FormLicevoi);
  Application.Run;
end;


---

Kot_   (2006-01-05 13:11:00) [2]

Спасибо

---

Е.   (2006-01-05 13:08:00) [3]

Application.Initialize;
Application.CreateForm(TFormPredpr, FormPredpr);
Application.CreateForm(TFormIdentif, FormIdentif);
FormIdentif.ShowModal;
if closeprog=true then Application.Terminate;
Application.CreateForm(TFormLicevoi, FormLicevoi);
Application.Run;

---

Наверх