Win...98? 95? Nt? XP? 2k?

[Cryonyx]

Народ, подскажите плз, кто знает, как определить в какой системе запущена прога. не залезая в реестр

[A.A.Z.]

Код: Выделить всё

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 Sub Form_Load()
    Dim OSInfo As OSVERSIONINFO, PId As String
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'KPDTeam@Allapi.net
    'Set the graphical mode to persistent
    Me.AutoRedraw = True
    'Set the structure size
    OSInfo.dwOSVersionInfoSize = Len(OSInfo)
    'Get the Windows version
    Ret& = GetVersionEx(OSInfo)
    'Chack for errors
    If Ret& = 0 Then MsgBox "Error Getting Version Information": Exit Sub
    'Print the information to the form
    Select Case OSInfo.dwPlatformId
        Case 0
            PId = "Windows 32s "
        Case 1
            PId = "Windows 95/98"
        Case 2
            PId = "Windows NT "
    End Select
    Print "OS: " + PId
    Print "Win version:" + str$(OSInfo.dwMajorVersion) + "." + LTrim(str(OSInfo.dwMinorVersion))
    Print "Build: " + str(OSInfo.dwBuildNumber)
End Sub

[Cryonyx]

Пасибо. Ещё вопрос: я в каком-то примере (кажись из MSDN для VS 6.0) видел следующее:

Код: Выделить всё

#If WinNT Then
...
#ElseIf Win32 Then
...
#EndIf


Кто-нибудь может мне объяснить, WinNT и Win32 - это зашитые в VB константы? Если да, то нет там чего-нить наподобие Win2k? И как можно при помощи условного компилятора определить ту или иную апи-функцию в зависимости от версии ОС (в частности, одну из функций (С) Форточек 2000, которой и в помине нет в нижестоящих версиях ОС)

[A.A.Z.]

Посмотри это и это

[tyomitch]

2AAZ: каждый раз, когда постят этот код, я буду комментировать, что "Windows 32s" не было. Win32s не расшифровывалась. Точно так же, как не было Windows NewTechnology.

В подтверждение сего: гугл выдаёт 800 ссылок для "Windows 32s" и 67000 - для Win32s. Разница на два порядка. У "Windows New Technology" и то больше ссылок - 1000.

[A.A.Z.]

Это не ко мне Это все API-Guide

[kif]

dim Platform as string

Platform = Environ("OS")

[alibek]

kif, а в курсе, что в Windows 9x нет такой переменной?

[GSerg]

Следовательно, возвращённая пустая строка будет говорить о том, что это 9x!

[alibek]

Или о том, что это Windows 3.11, Windows 3.1, Windows 2.x, Windows 1.x, DOS