VBNet - Форум - "kernel32"

Вопрос: "kernel32" Добавлено: 18.07.05 14:30

Автор вопроса: alexfrol | ICQ: 165999297

Private Structure OSVERSIONINFO
        Dim dwOSVersionInfoSize As Long
        Dim dwMajorVersion As Long
        Dim dwMinorVersion As Long
        Dim dwBuildNumber As Long
        Dim dwPlatformId As Long
        Dim szCSDVersion As String
End Structure

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (ByVal LpVersionInformation As OSVERSIONINFO) As Long

    Sub SystemInformation()
        Dim msg As String ' Status information.
        Dim NewLine As String ' New-line.
        Dim ret As Long ' OS Information
        Dim ver_major As Integer ' OS Version
        Dim ver_minor As Integer ' Minor Os Version
        Dim Build As Long ' OS Build
        NewLine = Chr(13) + Chr(10) ' New-line.
        ' Get operating system and version.
        Dim verinfo As OSVERSIONINFO
        verinfo.dwOSVersionInfoSize = Len(verinfo)
        ret = GetVersionEx(verinfo)
        If ret = 0 Then
            MsgBox("Error Getting Version Information")
            End
        End If
        'MsgBox verinfo.dwPlatformId
        Select Case verinfo.dwPlatformId
            Case 0
                msg = msg + "Windows 32s "
            Case 1
                msg = msg + "Windows 95 "
            Case 2
                msg = msg + "Windows NT "
        End Select

        ver_major = verinfo.dwMajorVersion
        ver_minor = verinfo.dwMinorVersion
        Build = verinfo.dwBuildNumber
        msg = msg & ver_major & "." & ver_minor
        msg = msg & " (Build " & Build & ")" & NewLine & NewLine
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call SystemInformation()
End Sub

в Visual Studio VB .Net Выделенный фрагмент дохнет. Пример взят с этого сайта
Ответить

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

Номер ответа: 1 Автор ответа: ZeroX ICQ: 220401330 Вопросов: 47 Ответов: 406	Профиль \| \| #1	Добавлено: 18.07.05 14:39
	Вообще-то для этого в .NET есть класс Environment Да и тип Long немешало бы на Integer заменить Ответить

Номер ответа: 2 Автор ответа: alexfrol ICQ: 165999297 Вопросов: 4 Ответов: 5	Профиль \| \| #2	Добавлено: 18.07.05 14:41
	а это вообще должно работать? Ответить

Номер ответа: 3 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #3	Добавлено: 18.07.05 15:34
	Должно. Есть заменить long на integer, а byval на byref. Ответить

Страница: 1 |