Application.terminate

[GAGARIN-NEW]

Всем привет ! С наступающими праздниками !

У меня такой вапрос :
Поместил в форм1.онкриэйт
Application.terminate;

Почему не завершается приложение ???
поставил после Application.terminate showmesage .... в итоге показался месадж и приложение начяло работать дальше как нужно .... получяется Application.terminate не сработал ???

Всем спасибо за ответы !

[Starscream]

Само по себе както глупо делать terminate в форме которая по сути еще создается. Советую ставить Application.terminate в обработке Form1.FormShow где форма появится на экране при каком то условии.

[Altera]

А ты попробуй поставить application.terminate в онШОУ....

[GAGARIN-NEW]

Суть такова .... мне нужно чтобы приложение запускалось только в определённцю дату ... я делаю проверку на дату в форм1.онкреате если дата не та каторая нужна то приложение должно както сказать о том что не та дата и завершится ...(у меня приложение пишет канвасом на десктопе что дата не та ...после чего оно далжно завершытся однако этого не происходит ..)

НО: при любых раскладках форма не должна быть видна .. поэтому в оншоу я думаю не получится ...

// Я не собираюсь защищять моё приложение от умных хакеров каторрые догадаютсо сменить дату на компьютере ... поэтому на щёт этого можете не писать ....

[Air]

А что команда Close, не катит?
Команда Halt завершит приложение даже если "крестик" заблокирован.

Делается так.

FormCreate.
if datetimetostr(now) <> '20.12.2008 12:34' then halt;
...
далее код когда дата верна (20.12.2008 12:34)...

и всё.

[B_N]

Сообщение от GAGARIN-NEW

.......мне нужно чтобы приложение запускалось только в определённцю дату ...

А зачем тогда вообще до форм дело доводить? Проверять дату, если подходит - создаем формы и Эппликейшн.Ран, не подходит - всем привет.

[GAGARIN-NEW]

Сообщение от B_N

А зачем тогда вообще до форм дело доводить? Проверять дату, если подходит - создаем формы и Эппликейшн.Ран, не подходит - всем привет.

Отсюдова пожалуйсто поподробнее.

[B_N]

Сообщение от GAGARIN-NEW

Отсюдова пожалуйсто поподробнее.

Ну куда же еще подробнее. Если вот так написать:

uses
  Unit1 in 'Unit1.pas';
{$R *.RES}

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

что получится? Правильно, ничего не запустится. Так что же мешает написать

uses
  Unit1 in 'Unit1.pas';
{$R *.RES}

begin
	if (ПОДХОДЯЩАЯ ДАТА) then begin
		Application.Initialize;
		Application.CreateForm(TForm1, Form1);
		Application.Run;
	end;
end.

[GAGARIN-NEW]

Большое спасибо !
Я просто нелюблю лазить в эту чясть проекта хотя всё прекрасно понял .
Вот вопрос будут ли тут работать функции прописанные в Unit1? или функции из модулей в uses ??? если нет то какже тогда организовать проверку до начяла работы приложения ???

[alexBlack]

Сообщение от GAGARIN-NEW

Большое спасибо !
Я просто нелюблю лазить в эту чясть проекта хотя всё прекрасно понял .

Ну тогда в модуле есть раздел инициализации. Делайте проверку там.
Он выполняется до Application.initialize. Но, тогда никаких Application.terminate. Только Halt.

Сообщение от GAGARIN-NEW

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

Будут, если модуль подключен и функции описаны в секции interface