Как писать консольные приложения в Delphi?

Code:

SetConsoleCtrlHandler(@ConProc, False);

Cls;

//

// "Цикл обработки сообщений"

//

Continue := True;

while Continue do

begin

ReadConsoleInput(GetConInputHandle, IBuff, 1, IEvent);

case IBuff.EventType of

   KEY_EVENT :

     begin

       // Проверяем клавишу ESC и завершаем программу

       if ((IBuff.KeyEvent.bKeyDown = True) and

       (IBuff.KeyEvent.wVirtualKeyCode = VK_ESCAPE)) then

         Continue := False;

     end;

   _MOUSE_EVENT :

     begin

       with IBuff.MouseEvent.dwMousePosition do

         StatusLine(Format('%d, %d', [X, Y]));

     end;

end;

end {While}

Code:

//-----------------------------------------------------

// Обработчик консольных событий

//-----------------------------------------------------

function ConProc(CtrlType: DWord): Bool; stdcall; far;

var

S: string;

begin

case CtrlType of

   CTRL_C_EVENT: S := 'CTRL_C_EVENT';

   CTRL_BREAK_EVENT: S := 'CTRL_BREAK_EVENT';

   CTRL_CLOSE_EVENT: S := 'CTRL_CLOSE_EVENT';

   CTRL_LOGOFF_EVENT: S := 'CTRL_LOGOFF_EVENT';

   CTRL_SHUTDOWN_EVENT: S := 'CTRL_SHUTDOWN_EVENT';

   else

     S := 'UNKNOWN_EVENT';

end;

MessageBox(0, PChar(S + ' detected'), 'Win32 Console', MB_OK);

Result := True;

end;