//窗口程序 - 毛玻璃效果
import win.ui;
/*DSG{{*/
var winform = win.form(text="毛玻璃效果";right=759;bottom=469)
winform.add()
/*}}*/

::DwmApi := raw.loadDll("Dwmapi.dll")
var aero = function(hwnd){
	if(_WIN10_LATER){  
		var accent = {
			int AccentState = 3;
			INT AccentFlags = 0;
			INT GradientColor = 0;
			INT AnimationId = 0;
		};
	
		::User32.SetWindowCompositionAttribute(hwnd,{
			INT Attrib = 19;
			ptr pvData = raw.buffer(accent);
			INT cbData = raw.sizeof(accent);
		});
	}
	elseif(_WIN7_LATER) {
		var result = {bool enabled};
		::DwmApi.DwmIsCompositionEnabled(result)
		if(result.enabled){
			::DwmApi.DwmEnableBlurBehindWindow(hwnd,{ int flags=3;int enable=1;int rgnBlur;int transition})
		} 
	}	
}
aero( winform.hwnd );


winform.show();
win.loopMessage();