Использовать консоль в неконсольном приложении

{ 

  For implementing console input/output for non-console applications you 
  should use the AllocConsole and FreeConsole functions. 
  The AllocConsole function allocates a new console for the calling process. 
  The FreeConsole function detaches the calling process from its console. 
  Example below demonstrates using these functions: 

 ** 

  Um eine Konsole in Nicht-Konsole Anwendungen zu 
  implementieren, verwende die AllocConsole API Funktion auf 
  und FreeConsole um sie wieder freizugeben. 
  Das Untenstehende Beispiel zeigt, wie man diese Funktionen 
  verwendet. 

}


 procedure
 TForm1.Button1Click(Sender: TObject);
 var

   s: string
;
 begin

   AllocConsole;
   try

     // Change color attributes 
    SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),
                                          FOREGROUND_BLUE OR
 FOREGROUND_GREEN or

                                          BACKGROUND_RED );
     Write
('Type here your words and press ENTER: ');
     Readln(s);
     ShowMessage(Format('You typed: "%s"', [s]));
   finally

     FreeConsole;
   end
;
 end
;

Другое по теме:

• Как консольное приложение может узнать, что Винды завершаются
• Как использовать консоль в не-консольном приложении
• Как захватить весь вывод в консоли