VBNet - Форум - Это ХР или 98

Вопрос: Это ХР или 98 Добавлено: 30.04.04 11:32

Автор вопроса: starmen

Как можно програмно узнат какой ОС действует на компе
Ответить

Ответы Всего ответов: 10

Номер ответа: 1
Автор ответа:

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | | #1

Добавлено: 30.04.04 11:42

Можно посмотреть вот так:

Option Explicit

'пример использования

MsgBox "Текущая версия Windows " & OSMajorVersion & "." & _

OSMinorVersion & "." & OSBuildNumber

'Вызываем API

Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (VersionInformation As OsVersionInfo) As Long

'Тип данных для API

Type OsVersionInfo

OSVersionInfoSize As Long

MajorVersion As Long

MinorVersion As Long

BuildNumber As Long

PlatformId As Long

CSDVersion As String * 128

End Type

Function OSCSDVersion()

On Error Resume Next

Dim OsVerInf As OsVersionInfo

OsVerInf.OSVersionInfoSize = Len(OsVerInf)

GetVersionEx OsVerInf

OSCSDVersion = OsVerInf.CSDVersion

End Function

Function OSBuildNumber()

On Error Resume Next

Dim OsVerInf As OsVersionInfo

OsVerInf.OSVersionInfoSize = Len(OsVerInf)

GetVersionEx OsVerInf

OSBuildNumber = OsVerInf.BuildNumber

End Function

Function OSPlatformID()

On Error Resume Next

Dim OsVerInf As OsVersionInfo

OsVerInf.OSVersionInfoSize = Len(OsVerInf)

GetVersionEx OsVerInf

OSPlatformID = OsVerInf.PlatformId

End Function

Function OSMinorVersion() As Long

On Error Resume Next

Dim OsVerInf As OsVersionInfo

OsVerInf.OSVersionInfoSize = Len(OsVerInf)

GetVersionEx OsVerInf

OSMinorVersion = OsVerInf.MinorVersion

End Function

Function OSMajorVersion() As Long

On Error Resume Next

Dim OsVerInf As OsVersionInfo

OsVerInf.OSVersionInfoSize = Len(OsVerInf)

GetVersionEx OsVerInf

OSMajorVersion = OsVerInf.MajorVersion

End Function

Ответить

Номер ответа: 2
Автор ответа:

Vilya

ICQ: 232995216

Вопросов: 12
Ответов: 63

Web-сайт: нету
Профиль | | #2

Добавлено: 30.04.04 13:49

А можно ж так:

Environ("OS")

Ответить

Номер ответа: 3
Автор ответа:

dNW

Вопросов: 30
Ответов: 683

Профиль | | #3

Добавлено: 30.04.04 14:25

Да, только не забывай, что если на компе ХР, то Environ ответит WIN_NT

Ответить

Номер ответа: 4
Автор ответа:

Vilya

ICQ: 232995216

Вопросов: 12
Ответов: 63

Web-сайт: нету
Профиль | | #4

Добавлено: 30.04.04 14:51

Ну да.

Можно ещё определить по присутствию всяких файлов и папок, хотя это будет не човсем красиво.

Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 30.04.04 16:27
	А ще моно смотреть размер explorer.exe Ответить

Номер ответа: 6 Автор ответа: dNW Вопросов: 30 Ответов: 683	Профиль \| \| #6	Добавлено: 30.04.04 17:05
	Размер? И чем же он различается? Ответить

Номер ответа: 7
Автор ответа:

Vilya

ICQ: 232995216

Вопросов: 12
Ответов: 63

Web-сайт: нету
Профиль | | #7

Добавлено: 30.04.04 19:17

Вопрос был Это Xp или 98, так что Environ подойдёт

Ответить

Номер ответа: 8
Автор ответа:

HACKER

Разработчик Offline Client

Вопросов: 236
Ответов: 8362

Профиль | | #8

Добавлено: 01.05.04 13:36

ну как в каждом Windows размер файла explorer.exe разный !!!!

Ответить

Номер ответа: 9 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968	Web-сайт: www.vbnet.ru Профиль \| \| #9	Добавлено: 01.05.04 13:51
	Тогда верняком и в разных языковых версиях он будет разный... Будешь по всему инету собирать инфу о том, сколько весит explorer в китайской XP, японской XPSP1, французской Win2k и т.д... Ответить

Номер ответа: 10 Автор ответа: dNW Вопросов: 30 Ответов: 683	Профиль \| \| #10	Добавлено: 01.05.04 14:37
	Не. По-моему определять ось по каким-то фаилам - это весьма не надежно. Тогда уж лучше спросить об этом у самого юзера ))) Ответить

Страница: 1 |