Win 7 Enable/Disable Minimize Animation On The Fly(Windows)

[RASHAD]

Hi

Code: Select all

;Get minanimation flag
anm.ANIMATIONINFO\cbSize = SizeOf(ANIMATIONINFO)
SystemParametersInfo_($0048, SizeOf(ANIMATIONINFO), @anm, 0)
Debug anm.ANIMATIONINFO\iMinAnimate

;******************************************************************

;Enable minanimation flag
anm.ANIMATIONINFO\cbSize = SizeOf(ANIMATIONINFO)
anm.ANIMATIONINFO\iMinAnimate = 1
SystemParametersInfo_($0049, SizeOf(ANIMATIONINFO), @anm, 0)
;Debug anm.ANIMATIONINFO\iMinAnimate

;******************************************************************

;Disable minanimation flag
anm.ANIMATIONINFO\cbSize = SizeOf(ANIMATIONINFO)
anm.ANIMATIONINFO\iMinAnimate = 0
SystemParametersInfo_($0049, SizeOf(ANIMATIONINFO), @anm, 0)
;Debug anm.ANIMATIONINFO\iMinAnimate