VPF::Выйти из проги в Form1.Create - Форум программистов

ukk

Дата 25.12.2005, 13:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
Application.Terminate;
ShowMessage('Fuck');
end;

Думал сообщение не должно появиться.. Запустил - вроде не появсяется.. Запускаю с Delphi 7 нажимая "F7" - функция вополняется до конца, а потом тут же выходит, но ShowMessage('Fuck') выполнятся! Как уничтожить прогу что бы дольшейший код не выполнялся? (Наверное придётся выполнять не в Create а в Activate что?)

Это сообщение отредактировал(а) ukk - 25.12.2005, 13:27

Albinos_x

Дата 25.12.2005, 13:42 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Код


halt;

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Демо

Дата 25.12.2005, 13:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Странное желание.

Может быть лучше не доводить до создания формы?

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

Albinos_x

Дата 25.12.2005, 14:16 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Цитата

Может быть лучше не доводить до создания формы?

в таком случае возникает вопрос... зачем вообще форма?

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Демо

Дата 25.12.2005, 14:44 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Цитата(Albinos_x @ 25.12.2005, 15:16)

в таком случае возникает вопрос... зачем вообще форма?

Думаю, что автору надо по суловию создавать форму.

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

F1reF0x

Дата 26.12.2005, 00:17 (ссылка)

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

Загрузка ...

Шустрый

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

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

Можешь быть Close во FormCreate поможет?

Albinos_x

Дата 26.12.2005, 00:44 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Цитата(F1reF0x @ 26.12.2005, 00:17)

Можешь быть Close во FormCreate поможет?

сомневаюсь... лучше halt...

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

~FoX~

Дата 26.12.2005, 09:29 (ссылка)

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

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

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

ukk
Application.Terminate Надо писать не в онкрейт формы, а в модуле проекта т.е.

Код


program Project1;

uses
  Forms, windows, SysUtils,
  Synchron in 'Synchron.pas' {Synhron};

{$R *.res}
var
  hMutex : THandle;
begin
  hMutex := CreateMutex(nil, False, '321');
  if WaitForSingleObject(hMutex, 0) = wait_TimeOut then Application.Terminate
  else begin
    Application.Initialize;
    Application.Title := 'Synh';
    Application.CreateForm(TSynhron, Synhron);
    Application.Run;
  end;
end.

Примерно так.
Здесь если прога находит мутикс 321 в памяти. то происходит терминэйт

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

…множественность никогда не следует полагать без необходимости…

Демо

Дата 26.12.2005, 10:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1278
Регистрация: 3.11.2005

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

Цитата

Примерно так.

А тут Terminate вообще не нужно;)

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

Albinos_x

Дата 26.12.2005, 10:57 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Цитата

Примерно так.

Цитата

А тут Terminate вообще не нужно;)

угу...

Правильное зевершение приложенияl

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

ukk

Дата 26.12.2005, 14:57 (ссылка)

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

Загрузка ...

Новичок

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

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

Сенкс за Halt; и за ссылку последнюю - остальное не нада smile

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