Binary Flag Operation

[GordonFreeman 11]

I do not know how can i tell this operation. But i am trying to get the flag in a string but it looks returning position. In Win7 SP1 i get 0x00010000 but the correct must be 0x00001000

expandcollapse popup

MsgBox(0,0,Binary(_GetOSFlag()))

Func _GetOSFlag()

Local $iOSFlag

If @OSVersion = "WIN_XP" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = 2
    ElseIf @OSServicePack = "Service Pack 2" Then
        $iOSFlag = 4
    ElseIf @OSServicePack = "Service Pack 3" Then
        $iOSFlag = 8
    Else
        $iOSFlag = 1
    EndIf
ElseIf @OSVersion = "WIN_VISTA" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = 32
    ElseIf @OSServicePack = "Service Pack 2" Then
        $iOSFlag = 64
    Else
        $iOSFlag = 16
    EndIf
ElseIf @OSVersion = "WIN_7" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = 256
    Else
        $iOSFlag = 128
    EndIf
ElseIf @OSVersion = "WIN_8" Then
    $iOSFlag = 512
ElseIf @OSVersion = "WIN_81" Then
    $iOSFlag = 1024
EndIf

Return $iOSFlag

EndFunc;_GetOSFlag

[BrewManNH 1,136]

Don't use Binary, use Hex

[GordonFreeman 11]

Don't use Binary, use Hex

Ok, with Hex works but only returns 8 numbers instead of 11

[BrewManNH 1,136]

It should return up to 16 digits, if it's not showing the full length try using the length parameter and/or stringformat with it.

[GordonFreeman 11]

Lol. I see wrong, with hex not work, because it returns Win Vista SP1

Anyway i do a code who works, but maybe hard to compare, how can i match now?

I need match by example, 0x00010001100 with 0x00000000100 return True

Its mean who WinXP SP3 and Win 7 and Win7 SP1 is checked and match with my system Win SP1, Then return True

expandcollapse popup

MsgBox(0,0,_GetOSFlag())

Func _GetOSFlag()

Local $iOSFlag

If @OSVersion = "WIN_XP" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = "01000000000"
    ElseIf @OSServicePack = "Service Pack 2" Then
        $iOSFlag = "00100000000"
    ElseIf @OSServicePack = "Service Pack 3" Then
        $iOSFlag = "00010000000"
    Else
        $iOSFlag = "10000000000"
    EndIf
ElseIf @OSVersion = "WIN_VISTA" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = "00000100000"
    ElseIf @OSServicePack = "Service Pack 2" Then
        $iOSFlag = "00000010000"
    Else
        $iOSFlag = "00001000000"
    EndIf
ElseIf @OSVersion = "WIN_7" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = "00000000100"
    Else
        $iOSFlag = "00000001000"
    EndIf
ElseIf @OSVersion = "WIN_8" Then
    $iOSFlag = "00000000010"
ElseIf @OSVersion = "WIN_81" Then
    $iOSFlag = "00000000001"
EndIf

Return $iOSFlag

EndFunc;_GetOSFlag

Ok. Not the best way, but i can do it works with this func

expandcollapse popup

MsgBox(0,"",_CheckOSFlag("00010001100",_GetOSFlag()))


Func _CheckOSFlag($iCfgOSFlag,$iOSFlag)

If StringMid($iCfgOSFlag,StringInStr($iOSFlag,1),1) = 1 Then
    Return 1
Else
    Return 0
EndIf

EndFunc;_CheckOSFlag

Func _GetOSFlag()

Local $iOSFlag

If @OSVersion = "WIN_XP" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = "01000000000"
    ElseIf @OSServicePack = "Service Pack 2" Then
        $iOSFlag = "00100000000"
    ElseIf @OSServicePack = "Service Pack 3" Then
        $iOSFlag = "00010000000"
    Else
        $iOSFlag = "10000000000"
    EndIf
ElseIf @OSVersion = "WIN_VISTA" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = "00000100000"
    ElseIf @OSServicePack = "Service Pack 2" Then
        $iOSFlag = "00000010000"
    Else
        $iOSFlag = "00001000000"
    EndIf
ElseIf @OSVersion = "WIN_7" Then
    If @OSServicePack = "Service Pack 1" Then
        $iOSFlag = "00000000100"
    Else
        $iOSFlag = "00000001000"
    EndIf
ElseIf @OSVersion = "WIN_8" Then
    $iOSFlag = "00000000010"
ElseIf @OSVersion = "WIN_81" Then
    $iOSFlag = "00000000001"
EndIf

Return $iOSFlag

EndFunc;_GetOSFlag

Thanks by attention BrewMan!

Edited July 15, 2014 by GordonFreeman