{
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;
|
