Как использовать консоль в не-консольном приложении? |
Previous Top Next |
Для того, чтобы добавить в не-консольное приложение ввод/вывод из консоли, необходимо воспользоваться функциями AllocConsole и FreeConsole.
Пример:
Code: |
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; |
©Drkb::02183
Взято из http://forum.sources.ru
Code: |
{
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:
}
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; |
©Drkb::02184
Взято с сайта: http://www.swissdelphicenter.ch