Внешний вид сайта:

Использование консоли в не-консольных приложениях

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

—

02.09.2016

coder

Использование консоли в не-консольных приложениях

Комментарии