Попробуй следующее:

Public Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
End Type
Public Declare Function GetVersionEx Lib "Kernel32" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long

OSV.dwOSVersionInfoSize = Len(OSV)

    GetVersionEx OSV

Далее тебе нужно следующее OSV.dwPlatformId - здесь и записан код типа ОС

1-Win9x&ME

2-WinNT

Ответить

Но ведь есть еще встроенная в VB6 функция!

Environ(11) или Environ("OS")  

Ответить

WinXP в режиме совместимости надувает обе эти функции. Попробуй читать из реестра (HKLM\Software\Microsoft\Windows\CurrentVersion), либо можно это сделать на асме взяв стартовое значение регистра cs, если не ошибаюсь. Кроме всего прочего, насколько я помню, у WinNT хандлы процессов идут положительные, а у Win9x - отрицательные.

Ответить

Ты ,Sharp, уж извини, но на моей памяти ты уже второй раз с этим асмом!

НЕ ВСЕ ЕГО ЗНАЮТ! 

Ответить

Дык учи. Без знания асма - программист не программист

Ответить

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

'Windows version constants

Private Const WIN_VER_MAJ_9XNT4 = 4 'Windows 95/98/ME/NT4

Private Const WIN_VER_MAJ_NT3 = 3 'Windows NT3

Private Const WIN_VER_MAJ_2KXP = 5 'Windows NT5

Private Const WIN_VER_MIN_95 = 0 'Win95 minor

Private Const WIN_VER_MIN_98 = 10 'Win98 minor

Private Const WIN_VER_MIN_ME = 90 'WinME minor

Private Const WIN_VER_MIN_NT3 = 51 'WinNT3.51 minor

Private Const WIN_VER_MIN_NT4 = 0 'WinNT4 minor

Private Const WIN_VER_MIN_2K = 0 'Win2k minor

Private Const WIN_VER_MIN_XP = 1 'WinXP(Whistler) minor

'Platform ID

Private Const VER_PLATFORM_WIN32s = 0 'Win32s

Private Const VER_PLATFORM_WIN32_WINDOWS = 1 'Windows 9x

Private Const VER_PLATFORM_WIN32_NT = 2 'Windows NT

Private Sub Get_OperatingSystem()

Dim StrTemp As String

Dim StrSP As String

Dim osInfo As OSVERSIONINFO

Dim lngL As Long

On Error GoTo ErrorHandler

strSysInfo = strSysInfo '& ""

'Preset the size of the structure

osInfo.dwOSVersionInfoSize = Len(osInfo)

lngL = GetVersionEx(osInfo)

If lngL <> 0 Then

Select Case osInfo.dwMajorVersion

Case WIN_VER_MAJ_9XNT4

If osInfo.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then

'Windows 9x Kernel, figure out which edition

If osInfo.dwMinorVersion = WIN_VER_MIN_95 Then

StrTemp = "Windows 95 "

ElseIf osInfo.dwMinorVersion = WIN_VER_MIN_98 Then

StrTemp = "Windows 98 "

ElseIf osInfo.dwMinorVersion = WIN_VER_MIN_ME Then

StrTemp = "Windows ME "

Else

StrTemp = "Unknown Microsoft Windows 9x system "

End If

Else

'NT4 kernel

If osInfo.dwMinorVersion = WIN_VER_MIN_NT4 Then

StrTemp = "Windows NT 4 "

Else

StrTemp = "Unknown NT 4-based version "

End If

End If

Case WIN_VER_MAJ_NT3

StrTemp = "Windows NT 3." & osInfo.dwMinorVersion & " "

Case WIN_VER_MAJ_2KXP

If osInfo.dwMinorVersion = WIN_VER_MIN_2K Then

StrTemp = "Windows 2000 "

ElseIf osInfo.dwMinorVersion = WIN_VER_MIN_XP Then

StrTemp = "Windows XP "

Else

StrTemp = "Unknown Windows NT 5 system "

End If

Case Else

StrTemp = "Unknown Windows system"

End Select

'Get service pack level information

StrSP = " " & StripTerm(osInfo.szCSDVersion)

StrTemp = StrTemp & StrSP & vbCrLf 'strip the rest of the buffer 'get only the actual data

StrTemp = StrTemp & " " & CStr(osInfo.dwMajorVersion) & "." & Format(CStr(osInfo.dwMinorVersion), "00") & "." & CStr(osInfo.dwBuildNumber) & vbCrLf

Else

StrTemp = "Unable to get version information. GetVersionEx returned " & lngL & vbCrLf

End If

'Сообщение об Операционной системе и версии

strSysInfo = strSysInfo & StrTemp

Exit Sub

ErrorHandler:

strSysInfo = strSysInfo & "Error Get_OperatingSystem" & vbCrLf

End Sub

Ответить

Ответить

Professional или Home? Какую ось ставил для совместимости?

2lostdragon2000: не нравится мне твой код Нехороший он какой-то...

Ответить

У меня Professional

Слушай! на теме ActiveX DLL я сказал, что нельзя без АПИ

в VB6 менять обой

Я был не прав?

Ответить

Любопытно... Я тоже проверял на WinXP Pro

А с чем был режим совместимости?

Можно и без API (по крайней мере в 98) - обои прописаны, кажется, в system.ini

Ответить

Я откомпилировал ЕХЕ с тремя строчками

Private sub Command1_Click()

msgbox Environ("os")

end sub

А потом запустил этот ЕХЕ со всеми видами совместимости (Win95,Win98/ME,Win2000,Win NT 4 )

Ответить

Проверять ломает, поверим на слово

Ответить