Карта сайтаСсылкиКонтакты

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

PDF Печать
Статьи

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

По материалам http://delphi3000.com


 

Добавить комментарий


Защитный код
Обновить