Handling Messages in Console Applications

  while getmessage(msg,0,0,0) do //Schleife wird bei msg.msg=WM_Quit beendet
  begin
    WriteLn('Got Message');
    WriteLn('  Message = ' + IntToStr(Msg.message));
    WriteLn('  lParam = '  + IntToStr(Msg.wParam));
    WriteLn('  wParam = '  + IntToStr(Msg.lParam));
    WriteLn('  hWND = '    + IntToStr(Msg.hwnd));
    WriteLn('  time = '    + IntToStr(Msg.time));
  end;