hey, i tried it like this:
; prototype
DwmExtendFrameIntoClientArea typedef PROTO STDCALL :DWORD,:DWORD
ExtendFrameIntoClientArea equ <(type DwmExtendFrameIntoClientArea) PTR eax>
.data
dwMargins dd 4 dup(-1)
invoke LoadLibrary, CADD("Dwmapi.dll")
invoke GetProcAddress, eax, CADD("DwmExtendFrameIntoClientArea")
.if eax > 0
invoke ExtendFrameIntoClientArea, hInst, addr dwMargins
.endif
But the window doesnt get transparent like it should be... Did I do something wrong? dwMargins needs to be set to -1 to apply it to the aero glass effect to the whole window.
Or is there another way to achieve an effect like this: http://www.codeproject.com/KB/directx/umvistad3d.aspx
Thanks.
Did you give your window the WS_EX_COMPOSITED extended style?
Also, the first parameter to ExtendFrameIntoClientArea should be the window handle, not hInst.
Also, if you are getting the proc address, why aren't you using it?
invoke LoadLibrary, CTEXT("Dwmapi.dll")
invoke GetProcAddress, eax,CTEXT("DwmExtendFrameIntoClientArea")
.if eax > 0
push offset Margin
push hWin
call eax
.endif
it works for me: :wink
On_wm_activate:
; Handle window activation.
; Extend the frame into the client area.
mov ecx, [esp+1*4] ; ecx->hWnd ; ecx->hwnd
sub esp, sizeof MARGINS
mov [esp].MARGINS.cxLeftWidth,8
mov [esp].MARGINS.cxRightWidth,8
mov [esp].MARGINS.cyTopHeight,36*5
mov [esp].MARGINS.cyBottomHeight,37
invoke DwmExtendFrameIntoClientArea, ecx, esp ; esp->addr MARGINS
add esp, sizeof MARGINS
ret 4*4
Thanks to everyone but I still didnt got it working... :(
MARGINS struct
cxLeftWidth DWORD ?
cxRightWidth DWORD ?
cyTopHeight DWORD ?
cyBottomHeight DWORD ?
MARGINS ends
PMARGINS typedef ptr MARGINS
.ELSEIF eax==WM_ACTIVATE
sub esp, sizeof MARGINS
mov [esp].MARGINS.cxLeftWidth,-1
mov [esp].MARGINS.cxRightWidth,-1
mov [esp].MARGINS.cyTopHeight,-1
mov [esp].MARGINS.cyBottomHeight,-1
invoke LoadLibrary, CADD("Dwmapi.dll")
invoke GetProcAddress, eax, CADD("DwmExtendFrameIntoClientArea")
.if eax > 0
push esp
push hWnd
call eax
.endif
Whats wrong? eax is always > 0 and the hWnd is the one from MainWndProc PROC hWnd:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
see if it's loading the library correctly
what OS are you using ?
If the library did not load correctly, then GetProcAddress should be failing. What is the return value from the called function?
Ah, got it working now.. I passed a wrong param to another function...
Thank you guys. :bg