aero frame extender

[ninjspks]

<windows 1909 compatible
This is a script I wrote in AutoIT3, will extend the reflection image from HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Dwm\

REG_SZ CustomThemeReflection

I hope it may be of some use to any of you...

* issue where it's extending into some unwanted areas like drag and drop images. * Will look at later.

https://www.deviantart.com/mattybw0y

89214




#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.14.5
Author: sPksNinj
Script Function:
Date: 21.03.2021
#ce ----------------------------------------------------------------------------

; Script Start
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <Process.au3>
#include <Misc.au3>
Global $hDLL, $hWinEventProc, $hHook
Global $Struct = DllStructCreate("int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight;")
Global $sStruct = DllStructCreate("dword;int;ptr;int")

$hDLL = DllOpen("User32.dll")
$hWinEventProc = DllCallbackRegister("_WinEventProc", "none", "hwnd;int;hwnd;long;long;int;int")
If Not @error Then
OnAutoItExitRegister("OnAutoItExit")
Else
MsgBox(16 + 262144, "Error", "DllCallbackRegister(_WinEventProc) did not succeed.")
Exit
EndIf

$hHook = _SetWinEventHook($hDLL)
If @error Then
MsgBox(16 + 262144, "Error", "_SetWinEventHook() did not succeed.")
Exit
EndIf

While 1
Sleep(10)
WEnd

Func _WinEventProc($hHook, $iEvent, $hWnd, $idObject, $idChild, $iEventThread, $iEventTime)
Local $PID = WinGetProcess($hWnd), $sEventProcName = _ProcessGetName($PID)
if($iEvent = 0x8000) Then
_DwmEnableBlurBehindWindow($hWnd)
EndIf
EndFunc ;==>_WinEventProc

Func _DwmEnableBlurBehindWindow($hWnd)
Const $DWM_BB_ENABLE = 0x00000001
DllStructSetData($sStruct, 1, $DWM_BB_ENABLE)
DllStructSetData($sStruct, 2, "1")
DllStructSetData($sStruct, 4, "1")
GUISetBkColor(0x000000); Must be here!
$Ret = DllCall( "dwmapi.dll", "int", "DwmEnableBlurBehindWindow", "hwnd", $hWnd, "ptr", DllStructGetPtr($sStruct))
If @error Then
Return 0
Else
Return $Ret
EndIf
EndFunc ;==>_DwmEnableBlurBehindWindow

Func _SetWinEventHook($hDLLUser32)
Local $aRet
Local Const $ACUNT = 0x8000
Local Const $WINEVENT_OUTOFCONTEXT = 0x0
Local Const $WINEVENT_SKIPOWNPROCESS = 0x2
If Not $hDLLUser32 Or $hDLLUser32 = -1 Then $hDLLUser32 = "User32.dll"
$aRet = DllCall($hDLLUser32, "hwnd", "SetWinEventHook", _
"uint", $ACUNT , _
"uint", $ACUNT , _
"hwnd", 0, _
"ptr", DllCallbackGetPtr($hWinEventProc), _
"int", 0, _
"int", 0, _
"uint", BitOR($WINEVENT_OUTOFCONTEXT, $WINEVENT_SKIPOWNPROCESS))
If @error Then Return SetError(@error, 0, 0)
Return $aRet[0]
EndFunc ;==>_SetWinEventHook

Func OnAutoItExit()
If $hWinEventProc Then
Beep(3000, 5)
DllCallbackFree($hWinEventProc)
EndIf
If $hHook Then DllCall("User32.dll", "int", "UnhookWinEvent", "hwnd", $hHook)
If $hDLL Then DllClose($hDLL)
EndFunc ;==>OnAutoItExit