Консольное приложение в Delphi

← →
Slonic75 © (2003-01-27 11:23) [0]

Добрый день! Я не профессионал, вопрос вроде как простой, но никак не могу найти ответ. Вопрос – как в консольном приложении предотвратить закрытие приложения по нажатию на «крест» консольного окна? Я закрываю приложение по вводу команды завершения работы. Пожалуйста, дайте пример кода…

← →
Chubais © (2003-01-27 12:14) [1]

> как в консольном приложении предотвратить закрытие приложения
> по нажатию на «крест» консольного окна

выключить монитор разве что...имхо...

← →
Slonic75 © (2003-01-27 13:41) [2]

Написал свой обработчик событий

function EventHandler(CtrlType : DWord) : Bool; stdcall; far;
begin
case CtrlType of
CTRL_CLOSE_EVENT, CTRL_LOGOFF_EVENT, CTRL_SHUTDOWN_EVENT : EventHandler := True;
else EventHandler := False
end
end;

а в тексте программы вставил
...
SetConsoleCtrlHandler(@EventHandler, True);
...

цель достигнута, тока не знаю насколько это верно...

Вроде (по справке) верно...

Консольное приложение в Delphi Найти похожие ветки