Delphi - база знаний

       

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


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



Для того, чтобы добавить в не-консольное приложение ввод/вывод из консоли, необходимо воспользоваться функциями 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;


Взято с Исходников.ru



Содержание раздела