Use a Console in non-console Applications?

Author: Igor Siticov

Homepage: http://www.sicomponents.com

{

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

Write('Type here your words and press ENTER: ');

Readln(s);

ShowMessage(Format('You typed: "%s"', [s]));

finally

FreeConsole;

end;

end;