Delphi 5. Учебник



краска для машин купить |

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



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

Листинг 1.1. Изменение заголовка консольного окна
        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 и щелкните на кнопке.




Содержание  Назад  Вперед