Консольное приложение без окна

[mss]

И понеслась ахинея про окна да про то что без них никак)

А всего-то и делов - почитать про SetConsoleCtrlHandler и задействовать этот документированный механизм.
Делов-то на пол-дюжины строчек кода)

[Johnson]

Низкий Вам поклон, mss, не знал... Какраз нечто подобное требовалось и мне...

[Nester]

вот нарыл но ещё не тестил

program Project2;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

function HandlerRoutine(dwCtrlType: cardinal): bool; stdcall;
  begin
    case dwCtrlType of
      CTRL_CLOSE_EVENT: begin
          if IDYES = MessageBox(0,'You are killing me','Why?',MB_YESNO)
          then Result:=false else Result:=true
      end;
      else Result:=false;
    end;//of case
  end;

begin
  SetConsoleCtrlHandler(@HandlerRoutine,true);
  Sleep(Infinite);
end.

[Nester]

у меня не сработало
возможно работает только с окном ({$APPTYPE CONSOLE})

Да! так и есть :-(

[mss]

работает только с окном ({$APPTYPE CONSOLE})

Ну так речь-то как раз и идет именно о консольном приложении)
Какая же консоль без окна ?)

[XerSon]

Убери строку {$APPTYPE CONSOLE} и будет программа без консоли.

[Johnson]

Программа без консоли, и, соответственно, без окна, которым получать сообщения...

[mss]

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

Программа без консоли, и, соответственно, без окна, которым получать сообщения...

Ничто не мешает создать консольный объект (AllocConsole)