Обработка сообщений в консольных приложениях

[Mixasik]

Помогите пожалуйста: мне надо обрабатывать сообщение windows в консольном приложении... Как это реализовать? Я посмотрел пример такой:

program Project1;
{$APPTYPE CONSOLE}

uses Windows, Messages;

var
  ID, ThrHandle, InpHandle, ScrHandle: Cardinal;
  IR: INPUT_RECORD;
  Msg: TMsg;

procedure Execute;         // цикл обработки сообщений
begin
  repeat 
    GetMessage(Msg,0,0,0); // берем сообщение в переменную Msg
    case Msg.message of    // анализируем тип сообщения
      ...
    end;
  until False;
end;

begin
  InpHandle:=GetStdHandle(STD_INPUT_HANDLE);
  ScrHandle:=GetStdHandle(STD_OUTPUT_HANDLE);
  SetConsoleTitle('Super Program');
  ThrHandle:=CreateThread(nil,0,@Execute,nil,0,ID); // создаем новый поток
        { цикл обработки ввода: }
  repeat
    WaitForSingleObjectEx(InpHandle,INFINITE,false); // ждем события ввода
    ReadConsoleInput(InpHandle,IR,1,Wr);     // берем запись в переменную IR
    case IR.EventType of                     // анализируем тип события ввода
      ...
    end; 
  until False;
end.

И мне хотелось бы просто разъяснить как это работает, но чтобы это понять самому мне пока не достаточно знаний консольных приложений(((

[OCTAGRAM]

Создаётся второй поток. В первом потоке цикл сообщений для консоли, в новом потоке — цикл сообщений Windows.

[Mixasik]

Это я понял, но вот какэто все работает не понятно, например получено сообщение windows как мне произвести с ним какие лиюо действия или просто написать в консоли что сообщение поймано и его название?