|
nomainwin open "Opaque Window Title" for window as #w #w "trapclose quit" struct policy, n as long l = len(policy.struct) policy.n.struct = 1 ' disable transparency hw = hwnd(#w) open "dwmapi.dll" for dll as #dwm calldll #dwm, "DwmSetWindowAttribute", hw as ulong, 2 as long, _ policy as struct, l as long, r as long wait sub quit h$ close #dwm close #h$ end end sub