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

Советы » DOS и Консоль » Как использовать консоль в не-консольном приложении

Для того, чтобы добавить в не-консольное приложение ввод/вывод из консоли, необходимо воспользоваться функциями AllocConsole и FreeConsole.

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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com