任务栏闪烁(类似QQ信息来了的提示)

感谢:　撒旦微笑　提供

import win.ui;
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add()
/*}}*/

winform.show()
winform.hitMin()

::User32.FlashWindowEx({
	int cbSize = 20;
	addr hwnd = winform.hwnd;//窗口句柄
	int dwFlags = 0x00000002/*FLASHW_TRAY*/|0x0000000C/*FLASHW_TIMERNOFG*/; //闪动任务栏直到窗体被激活
	int uCount = 4294967295;//闪动次数
	int dwTimeout = 0;//闪动频率
})
win.loopMessage();

参考资料：

FlashWindow
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-flashwindow
FlashWindowEx 
https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-flashwindowex