Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Как прервать запуск экзешника? 


Tupnyk   (2001-12-19 18:59) [0]

В Проекте м/у application.initializ... и application.run в зависимости от некоторой функции и где её выполнять если формы еще только генерятся?



Юрий Зотов   (2001-12-19 19:21) [1]

Как это где? Там и выполнять, где нужно - перед Application.Run.

Жмете в меню: Project | View Source. Открывается текст DPR и в нем ручками пишете нужный код в нужном месте. А чтобы прервать запуск, можете написать Halt, либо используйте if - например, так:

Application.Initialize;
if <проверка условия> then
begin
Application.CreateForm(...);
Application.CreateForm(...);
...
Application.Run
end
end.



Дремучий   (2001-12-19 19:28) [2]

или
....
Application.Initialize;
if <проверка условия>
then Application.Terminate
else Application.Run;
end.



Юрий Зотов   (2001-12-19 19:36) [3]

> Дремучий © (19.12.01 19:28)

Application.Run - запускает цикл выборки сообщений.
Application.Terminate - посылает сообщение WM_QUIT.

Поэтому крайне интересно узнать - как же может сработать Application.Terminate, если Application.Run не было вызвано?



Tupnyk   (2001-12-19 21:07) [4]

А если часть условия должна быть получена в результате выполнения некоторой функции, то где эта сама функция должна выполняться?



y-soft   (2001-12-19 21:26) [5]

>Tupnyk
Можно последовать совету Юрия Зотова, но
если есть возможность, то лучше всего производить проверку еще до вызова Application.Initialize, а именно в секции Initialization самого первого загружаемого модуля, и при необходимости там же прерывать выполнение приложения простым вызовом Halt. Т.е. создать специальный модуль для этой цели и поместить его первым в USES файла .DPR



Юрий Зотов   (2001-12-19 21:35) [6]

> Tupnyk (19.12.01 21:07)

Наверное, все же не "выполняться", а "располагаться". Ответ - где угодно, лишь бы она была "видна" из DPR. То есть, хоть в самом DPR, хоть в любом прописанном в нем модуле.



Tupnyk   (2001-12-19 22:19) [7]

СПАСИБО!



Дремучий   (2001-12-19 22:36) [8]

2 Юрий Зотов © (19.12.01 19:36)
просто програма будет завершаться не по Application.Terminate;,
а по
end.

Вы правы, тем не менее такой код ошибки не выдает...

program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Form1};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Terminate;
//Application.Run;
end.



Юрий Зотов   (2001-12-19 22:43) [9]

> Дремучий © (19.12.01 22:36)

> Такой код ошибки не выдает...

А с чего бы ему выдавать ошибку? Конечно, не выдает. Но и ничего не делает: если Application.Terminate просто выкинуть, то будет точно то же самое - завершение по end. Что и было показано в примере.





Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.041 c
1-22203           T2                    2001-12-16 07:07  2002.01.08  
Отлов ошибки отсутствия msWord


1-22244           Socol                 2001-12-15 15:42  2002.01.08  
Загрузка файла!


1-22078           DJ X                  2001-12-15 16:11  2002.01.08  
Конвертирование, реестр, INI


1-22000           Striker               2001-12-13 07:59  2002.01.08  
Перенос данных в ячейку листа Excel


1-22040           grab                  2001-12-18 18:18  2002.01.08  
выравнивание теста в TRichEdit