![]() |
|
Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply |
![]()
|
|
| artmaestro |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 80 Регистрация: 8.11.2010 Репутация: нет Всего: 1 |
Здравствуйте! Столкнулся с проблемой, не могу определить с помощью API какая ОС установлена.
Определить все ОС до Windows 7 получилось, а вот как определить, что стоит Windows 7 - не могу понять. Подскажите пожалуйста как можно это сделать через API ну или на крайней случай может через какой то компонент это организовать, только не используя реестр. Буду благодарен! |
|||
|
||||
| bems |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3400 Регистрация: 5.1.2006 Репутация: 21 Всего: 88 |
GetVersionEx вроде всегда работала
-------------------- Обижено школьников: 8 |
|||
|
||||
| artmaestro |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 80 Регистрация: 8.11.2010 Репутация: нет Всего: 1 |
Через нее удалось определить ОС, но не Windows 7 |
|||
|
||||
| bems |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3400 Регистрация: 5.1.2006 Репутация: 21 Всего: 88 |
Справку читал? Семерка это dwMajorVersion = 6, dwMinorVersion = 1 и wProductType = VER_NT_WORKSTATION
-------------------- Обижено школьников: 8 |
|||
|
||||
| Keeper89 |
|
|||
|
Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 2580 Регистрация: 26.2.2009 Репутация: 14 Всего: 58 |
В последней Delphi XE2 есть новый класс для этого
http://blogs.embarcadero.com/pawelglowacki/2011/08/31/39273 Это сообщение отредактировал(а) Keeper89 - 17.10.2011, 12:47 |
|||
|
||||
| artmaestro |
|
||||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 80 Регистрация: 8.11.2010 Репутация: нет Всего: 1 |
Спасибо за совет. Надо будет установить данную версию.
Под справкой ты имеешь ввиду MSDN? Я читал но не разобрался поэтому решил написать сюда. Спасибо за пример! |
||||
|
|||||
| CodeMonkey |
|
|||
|
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1839 Регистрация: 24.6.2008 Где: Россия, Тверь Репутация: 16 Всего: 89 |
Код в студию. P.S. И что "удалось определить" - тоже. Это сообщение отредактировал(а) CodeMonkey - 20.10.2011, 07:10 -------------------- Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. |
|||
|
||||
![]()
|
| Правила форума "Delphi: WinAPI и системное программирование" | |
|
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |