322__________________________________________________Глава 9
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 — и символ |