Создание консольных приложений

Содержание материала

Страница 3 из 3

Ax да! Мы же собирались вывести свое приветствие! Для этого добавьте между begin и end строку

WriteLn ('Hello, world!');

Сохраните, скомпилируйте и запустите проект из командной строки. Надеюсь, вам понравилось? И еще одно замечание - консольные приложения используют стандартные потоки ввода-вывода, а значит, вы можете использовать функции Read, ReadLn, Write и WriteLn.

Функции Windows API для консольного приложения

Вы можете делать гораздо больше в консольном приложении, чем просто считывать и выводить текст. Вам доступно около 40 функций Windows API для работы с дисплеем, например изменение атрибутов выводимых символов или изменение размеров консоли.

В листинге 1.1 изменяется текст, выводимый в заголовке консольного окна. Вы можете найти этот пример на дополнительно распространяемой дискете в папке EgConsoleTitle.

Листинг 1.1. Изменение заголовка консольного окна

Code:

program EgConsoleTitle;

{$APPTYPE CONSOLE}

uses

Windows, SysUtils;

{$R *.RES}

var

sNewTitle, sErrMsg: string;

begin

sNewTitle := 'Welcome to Con5ole World';

if not SetConsoleTitle(PChar(sNewTitle)) then

begin

sErrMsg := 'Unable to set caption - ' + SysErrorMessage(GetLastError);

MessageBox(0, PChar(sErrMsg), 'Error', MB_ICONEXCLAMATION + MB_OK);

end;

ReadLn;

end.

Здесь функция API SetConsoleTitle возвращает False, если назначить новый заголовок невозможно. GetLastError возвращает числовое значение последней ошибки API, которое SysErrorMessage конвертирует в строку для вывода на экран.

Совет: Поставляемая с Delphi система справки по Win32 содержит функции консольного API. Для доступа к ним выведите пункт Console Reference и щелкните на кнопке.

Новые статьи

Ранние статьи

Как поменять иконку и стpокy в заголовке консольного окна?

Создание консольных приложений