Code archives/Miscellaneous/Disable aeroglass theme in Windows Vista
This code has been declared by its author to be Public Domain code.
Download source code
| |||||
Disable aeroglass theme in Windows Vista | |||||
SuperStrict Import pub.win32 Private Extern "win32" Function FreeLibrary:Int(hlib:Int) EndExtern Global DWMlibrary:Int AeroSetEnable(False) Delay 10000 If DWMlibrary FreeLibrary(DWMlibrary) Public Function AeroSetEnable(enable:Int) Const DWM_EC_DISABLECOMPOSITION:Int=0 Const DWM_EC_ENABLECOMPOSITION:Int=1 Local DwmEnableComposition:Int(mode:Int) If Not DWMlibrary DWMlibrary=LoadLibraryA("DWMAPI.dll") If DWMlibrary DwmEnableComposition=getprocaddress(DWMlibrary,"DwmEnableComposition") If DwmEnableComposition If enable DwmEnableComposition(DWM_EC_ENABLECOMPOSITION) Else DwmEnableComposition(DWM_EC_DISABLECOMPOSITION) EndIf EndIf EndIf EndFunction |
Comments
| ||
I hate it when apps do that! :P |
Code Archives Forum