| Вопрос: Как узнать версию винды юзера? | Добавлено: 21.12.03 05:54 |
Автор вопроса:  Morpheus | Web-сайт: xury.zx6.ru
|
Задача состоит в том, чтобы моя прога могла при запуске определить, какая винда стоит у юзера на компе , чтобы прога отличала 98 от 2000 и от XP.Заранее благодарен. 
|
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #1 | Добавлено: 21.12.03 06:24 |
| вот, но если у юзера XP, то функция возвратит, что у него NT, так что и версию винды сметреть тоже надо | ||
|
Номер ответа: 2 Автор ответа:   V!RU$™ ICQ: 132309822 Вопросов: 24 Ответов: 54 |
Web-сайт: Профиль | | #2 | Добавлено: 21.12.03 11:23 |
|
Environ("OS") |
||
|
Номер ответа: 3 Автор ответа:  Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #3 | Добавлено: 21.12.03 14:47 |
|
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128 End Type Private Const VER_PLATFORM_WIN32_NT = 2 Public Function IsWinNT() As Boolean 'Определение линейки Windows 'Рассылка VBNet.Ru Dim info As OSVERSIONINFO info.dwOSVersionInfoSize = Len(info) GetVersionEx info IsWinNT = (info.dwPlatformId = VER_PLATFORM_WIN32_NT) End Function Если NT/2k/2k3/XP, то возвратит True |
||
|
Номер ответа: 4 Автор ответа:  SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #4 | Добавлено: 21.12.03 15:03 |
|
http://www.vb.kiev.ua/code/api/Determine_win_version.zip Лучшее, что я видел по этой теме. Но есть проблема - в режиме совместимости XP умеет заменять как ENVIRONMENTSTRING, так и GetVersionEx... Здесь единственно возможным вариантом, наверно, будет привязка к размеру, скажем, shell32.dll... |
||
|
Номер ответа: 5 Автор ответа: GlooMICQ: 348453688 Вопросов: 88 Ответов: 356 |
Web-сайт: Профиль | | #5 | Добавлено: 22.12.03 22:05 |
| В инете по этому поводу дофига прог лежит... поюзай - найдешь! | ||
Страница: 1 |