VPF::GetVersionEx - Форум программистов

MIX55

Дата 9.3.2006, 15:17 (ссылка)

(нет голосов)

Загрузка ...

много работы

Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

Репутация: нет
Всего: 4

есть функция для определения параметров версии OC. В качестве параметра должна передаваться структура:

Цитата

typedef struct _OSVERSIONINFO {
DWORD dwOSVersionInfoSize;
DWORD dwMajorVersion;
DWORD dwMinorVersion;
DWORD dwBuildNumber;
DWORD dwPlatformId;
TCHAR szCSDVersion[128];
} OSVERSIONINFO;

скажем чтобы узнать номер версии ОС я пишу следующий код:

Код


function buildOS:word;
var
 OSVI:TOSVERSIONINFO;
begin
 OSVI.dwOSVersionInfoSize:=SizeOf(OSVI);
 GetVersionEx(OSVI);
 Result:=OSVI.dwBuildNumber;
end;

все прекрасно работает
однако есть расширенная структура

Цитата

typedef struct _OSVERSIONINFOEX {
DWORD dwOSVersionInfoSize;
DWORD dwMajorVersion;
DWORD dwMinorVersion;
DWORD dwBuildNumber;
DWORD dwPlatformId;
TCHAR szCSDVersion[128];
WORD wServicePackMajor;
WORD wServicePackMinor;
WORD wSuiteMask;
BYTE wProductType;
BYTE wReserved;
} OSVERSIONINFOEX, *POSVERSIONINFOEX, *LPOSVERSIONINFOEX;

если написать следующий код

Код


function buildOS:word;
var
 OSVI:TOSVERSIONINFOEX;
begin
 OSVI.dwOSVersionInfoSize:=SizeOf(OSVI);
 GetVersionEx(OSVI);
 Result:=OSVI.dwBuildNumber;
end;

то вылезает ошибочка

Цитата

Undeclared identifier: 'TOSVERSIONINFOEX'

хотя в sdk написано

Цитата

lpVersionInfo
[in, out] Pointer to an OSVERSIONINFO data structure that the function fills with operating system version information.
Before calling the GetVersionEx function, set the dwOSVersionInfoSize member of this structure to sizeof(OSVERSIONINFO).

Windows NT 4.0 SP6 and later: This member can be a pointer to an OSVERSIONINFOEX structure. Set the dwOSVersionInfoSize member to sizeof(OSVERSIONINFOEX) to identify the structure type.

У меня WIN XP Proffesional
подскажите в чем ошибка

--------------------

Hарод, а как в дельфи писать паскалевские проги....?*********************************************Жизнь слишком коротка, чтобы писать на Assembler'e

Snowy

Дата 9.3.2006, 15:26 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Отправляю все туда же... http://forum.vingrad.ru/index.php?showtopi...p;#038;p=317020
Добавлено @ 15:28
Просто нет в 7-ке этих структур.

MIX55

Дата 9.3.2006, 15:34 (ссылка)

(нет голосов)

Загрузка ...

много работы

Профиль
Группа: Awaiting Authorisation
Сообщений: 208
Регистрация: 23.10.2005
Где: Здесь

Репутация: нет
Всего: 4

Snowy респект.
Тема закрыта

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »