_Getosversionex()

[SimpsoN_Bart]

Kullandığınız İşletim sistemi sürümünün bazı ekstra özelliklerini göstermek için olan bir fonksiyonu biraz daha araştırıp geliştirdim. Umarım işinize yarar.

#include <array.au3>

$aRes = _GetOSVersionEx()

_ArrayDisplay($aRes)

Func _GetOSVersionEx()

    Local Const $OSVERSIONINFOEXW = "dword dwOSVersionInfoSize;dword dwMajorVersion;dword dwMinorVersion;dword dwBuildNumber;dword dwPlatformId;" & _
            "wchar szCSDVersion[128];ushort wServicePackMajor;ushort wServicePackMinor;ushort wSuiteMask;byte wProductType;byte wReserved"

    Local $OSVI = DllStructCreate($OSVERSIONINFOEXW)

    DllStructSetData($OSVI, "dwOSVersionInfoSize", DllStructGetSize($OSVI))

    Local $ret = DllCall("kernel32.dll", "int", "GetVersionExW", "ptr", DllStructGetPtr($OSVI))

    Local $aReturn[12][2]

    $aReturn[1][0] = "dwOSVersionInfoSize"
    $aReturn[2][0] = "dwMajorVersion"
    $aReturn[3][0] = "dwMinorVersion"
    $aReturn[4][0] = "dwBuildNumber"
    $aReturn[5][0] = "dwPlatformId"
    $aReturn[6][0] = "szCSDVersion"
    $aReturn[7][0] = "wServicePackMajor"
    $aReturn[8][0] = "wServicePackMinor"
    $aReturn[9][0] = "wSuiteMask"
    $aReturn[10][0] = "wProductType"
    $aReturn[11][0] = "wReserved"

    If Not @error Then

        For $i = 1 To 11
            $aReturn[$i][1] = DllStructGetData($OSVI, $i)
        Next

        $aReturn[0][0] = $aReturn[2][1] & "." & $aReturn[3][1] & "." & $aReturn[4][1]
    EndIf

    Return $aReturn

EndFunc   ;==>_GetOSVersionEx

https://www.box.com/s/5pf3x72rjdwon42uzpxr

Aldığım kaynak için:

http://msdn.microsoft.com/en-us/library/ms724451.aspx

[register]

[spoiler][/spoiler]