| Вопрос: Как определить систему | Добавлено: 11.11.03 13:42 |
Автор вопроса:  paul_sn | Web-сайт: sergeyev.zzn.com
|
|
Подскажите, как определить систему (Windows 98, 2000, Me, XP) в которой запускается прога? |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа: Pashenko ICQ: 176176951 Вопросов: 14 Ответов: 655 |
Профиль | | #1 | Добавлено: 11.11.03 13:52 |
|
Определить NT/неNT можно так: Environ("os") На сайте ещё был способ через API, но результат тот же. Как подробнее - не знаю. |
||
|
Номер ответа: 2 Автор ответа:  Александр Разработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #2 | Добавлено: 11.11.03 16:35 |
| Зато я знаю как через API. Как?? Спроси мылом... aesoft@mail.ru | ||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 14.11.03 17:16 |
|
GetSystemVersion |
||
|
Номер ответа: 4 Автор ответа: ПавелАдминистратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #4 | Добавлено: 15.11.03 09:37 |
|
Ещё есть функция API GetVersionEx. |
||
|
Номер ответа: 5 Автор ответа: BuilderSoft Вопросов: 3 Ответов: 9 |
Профиль | | #5 | Добавлено: 15.11.03 17:25 |
|
Private Declare Function GetVersion Lib "kernel32" () As Long Public Function GetWinVersion() As String Dim Ver As Long, WinVer As Long Ver = GetVersion() WinVer = Ver And &HFFFF& 'retrieve the windows version GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed") End Function Private Sub Form_Load() MsgBox "Windows version: " + GetWinVersion End Sub |
||
Страница: 1 |