9.2.5. Функции разного назначения
Процедура Dos3Call. Заголовок:
Procedure Dos3Call;
Позволяет программе вызвать прерывание ДОС $21. Доступ к этой процедуре возможен только на ассемблере.
Процедура FatalExit. Заголовок:
Procedure FatalExit(Code: Integer);
Передает текущее состояние защищенной программы внешнему отладчику. Используется только в отладочном режим. Вызов этой процедуры в рабочем режиме приведет к завершению работы программы.
Функция GetDosEnvironment. Заголовок.
Function GetDosEnvironment: PChar;
Возвращает переменные окружения ДОС. Используется в DLL, т.к. в отличие от основной программы DLL не получают копию переменных окружения ДОС.
Функция GetVersion. Заголовок:
Function GetVersion: Longint;
Возвращает версию Windows или MS-DOS: старшее слово содержит номер версии, младшее — номер ревизии.
Функция GetWinFlaqs. Заголовок:
Function GetWinFlags: Longint;
Возвращает флаги Windows, содержащие информацию о конфигурации ОС и памяти. Возвращаемое значение может быть комбинацией следующих признаков:________________________________
|
Признак |
Смысл |
|
wf 80х87 |
В системе имеется арифметический сопроцессор |
|
wf CPU286 |
Используется процессор 80286 |
|
wf CPU386 |
Используется процессор 80386 |
|
wfCPU486 |
Используется процессор 80486 |
|
wf Enhanced |
Windows работает в расширенном 386 — режиме |
|
wf Paging |
Wndows работает на системе со страничной памятью |
|
wf PMode |
Используется защищенный режим процессора |
|
wf Standard |
Windows работает в стандартном режиме |
|
wf Win286 |
Эквивалент wfStandard |
|
wf Win386 |
Эквивалент wfEnhanced |
|
wf DPMI |
Используется DPMI— сервер |
Функция MessaqeBox. Заголовок:
Function MessageBox(Handle: Word; Text, Header: PChar;
Flags: Word): Word;
Выводит текстовое сообщение, состоящее из двух строк, и ожидает ответа пользователя. Возвращает идентификатор ответа. Параметр Handle в защищенном режиме игнорируется и может быть любым.
Первая строка сообщения состоит из двух текстовых строк, разделенных двоеточием: Header — текстовая строка до двоеточия; Text — строка после двоеточия. Вторая строка сообщения определяется параметром Flags, который должен быть комбинацией следующих флагов:
|
Флаг |
Смысл |
|
mb0k |
Вставить текст 'Ok (0):' |
|
mb OkCance-L |
Вставить текст 'Ok (0) Cancel (С):' |
|
mbAbortRetryIgnore |
Вставить текст'Abort (A) Retry (R) Ignore (I) |
|
inbYesNoCancel |
Вставить текст'Yes (Y) No (N) Cancel (0 :' |
|
mbYesNo |
Вставить текст ' Yes (Y) No (N) : ' |
|
mbRetryCancel |
Вставить текст'Retry (R) Cancel (C) :' |
|
S bDefButtonl |
Сделать умалчиваемым 1 — и символ |
mb_DefButton2 ¦ Сделать умалчиваемым 2—и символ mb_DefButton3 ¦ Сделать умалчиваемьм 3-й символ
Функция возврашает одно из следующих значений:
|
Значение |
Смысл |
|
id0k id Cancel |
Нажата клавиша «О» Нажата клавиша «С» |
|
idAbort |
Нажата клавиша «А» |
|
idRetry |
Нажата клавиша «R» |
|
idIgnore |
Нажата клавиша «I» |
|
idYes |
Нажата клавиша «X» |
|
idNo |
Нажата клавиша «N» |
Если, например, сделан такой вызов функции:
MessageBox(0,'прекратить печать?', 'Принтер не отвечает',mb_YesNo+mb_DefButton2)
то на экран будет выведено:
Принтер не отвечает: прекратить печать? Yes (Y) No (N) :
Если в ответ нажата клавиша Enter, функция вернет значение id_No, так как параметр Flags содержит mb_DefButton2.
