Как прекратить выполнение программы в процессе инициализации?

← →
Kot_ (2006-01-05 13:03) [0]

Есть код:

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:08) [1]

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

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

Спасибо

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

Как прекратить выполнение программы в процессе инициализации? Найти похожие ветки