: Success - Returns version integer Failure - Returns 0 Author. : Returns version number of OS Syntax.: _GetVersionEx() Parameters.
#Vista airo windows#
Yes = Func _DWM _ICE ( ) If Not _IsWinAero ( ) Then $ICEStruct = DllStructCreate ( "int " ) $Ret = DllCall ( "dwmapi.dll", "int", "DwmIsCompositionEnabled", "ptr", DllStructGetPtr ( $ICEStruct ) ) If Then SetError ( 0, 0, - 1 ) DWM is not active Return 0 Else Return DllStructGetData ( $ICEStruct, 1 ) EndIf Else SetError ( 1, 0, 1 ) Not running Windows 6.1 or above Return 1 EndIf EndFunc =>_DWM_Aero_ICE #FUNCTION# = Name.: _GetVersionEx Description. : Success - Returns 1 Failure - Returns 0 Author.
: Returns 1 if DWM is enabled or 0 if not Syntax.: _DWM_ICE() Parameters. Yes = Func _DWM _Aero _EnableBlurBehind ( $hWnd, $bColor = 0x000000 ) If Not _IsWinAero ( ) Then SetError ( 0, 0, - 1 ) Return 0 Else DllStructSetData ( $sStruct, 1, $DWM_BB_ENABLE ) DllStructSetData ( $sStruct, 2, "1" ) DllStructSetData ( $sStruct, 4, "1" ) GUISetBkColor ( $bColor ) Must be here! $Ret = DllCall ( "dwmapi.dll", "int", "DwmEnableBlurBehindWindow", "hwnd", $hWnd, "ptr", DllStructGetPtr ( $sStruct ) ) If Then SetError ( 0, 0, 1 ) Return 0 Else Return $Ret EndIf EndIf EndFunc =>_DWM_Aero_EnableBlurBehind #FUNCTION# = Name.: _DWM_ICE Description. : Success - No return Failure - Returns 0 Author. Syntax.: _DWM_Aero_EnableBlurBehind($hWnd) Parameters. : Enables the blur effect on the provided window handle. : Applys glass effect to a window Syntax.: _DWM_Aero_ApplyGlass($hWnd, ) DllStructSetData ( $Struct, "cxRightWidth", $Area ) DllStructSetData ( $Struct, "cyTopHeight", $Area ) DllStructSetData ( $Struct, "cyBottomHeight", $Area ) GUISetBkColor ( $bColor ) Must be here! $Ret = DllCall ( "dwmapi.dll", "long*", "DwmExtendFrameIntoClientArea", "hwnd", $hWnd, "ptr", DllStructGetPtr ( $Struct ) ) If Then SetError ( 0, 0, 1 ) Return 0 Else Return $Ret EndIf Else ConsoleWrite ( "ICE DISABLED!" & ) SetError ( 1 ) Return 0 EndIf Else SetError ( 2, 0, 2 ) Return 0 EndIf EndIf EndFunc =>_DWM_Aero_ApplyGlassArea #FUNCTION# = Name.: _DWM_Aero_EnableBlurBehind Description. Expand collapse popup #include #include _GDIPlus _Startup ( ) Global Const $DWM_BB_ENABLE = 0x00000001 Global $MyArea = $Struct = DllStructCreate ( "int cxLeftWidth int cxRightWidth int cyTopHeight int cyBottomHeight " ) $sStruct = DllStructCreate ( "dword int ptr int" ) $hGUI = GUICreate ( "Windows Vista DWM", 243, 243 ) $Label = GUICtrlCreateLabel("Aero Test", 10, 10) $Apply = GUICtrlCreateButton ( "Apply", 80, 104, 83, 25, 0 ) $ICE = GUICtrlCreateButton ( "DWM Check", 80, 134, 83, 25, 0 ) GUISetState ( ) $hGraphic = _GDIPlus _GraphicsCreateFromHWND ( $hGUI ) _GDIPlus _GraphicsDrawString ( $hGraphic, "This is a test string on DWM.", 35, 20 ) While 1 $iMsg = GUIGetMsg ( ) Switch $iMsg Case $GUI_EVENT_CLOSE _GDIPlus _GraphicsDispose ( $hGraphic ) _GDIPlus _Shutdown ( ) Exit Case $Apply _DWM_Aero_ApplyGlass($hGUI) _DWM _Aero _EnableBlurBehind ( $hGUI ) _DWM_Aero_ApplyGlassArea($hGUI, $MyArea, 0圎2E2E2) If Not Then GUICtrlSetColor ( $Apply, 0xFFFFFF ) GUICtrlSetBkColor ( $Apply, 0x000000 ) GUICtrlSetColor ( $ICE, 0xFFFFFF ) GUICtrlSetBkColor ( $ICE, 0x000000 ) GuiCtrlSetColor($Label, 0xFFFFFF) EndIf Case $ICE If _DWM _ICE ( ) Then MsgBox ( 0, "_DWM_Aero_ICE", "DWM is enabled!" ) Else MsgBox ( 0, "_DWM_Aero_ICE", "DWM is NOT enabled!" ) EndIf EndSwitch WEnd #FUNCTION# = Name.: _DWM_Aero_ApplyGlass Description.
0 kommentar(er)
