Delphi调用FlashWindowEx闪烁窗口源代码

...

var

hwnd:THandle;

F:FLASHWINFO;

begin

...

if hwnd>0 then

begin

F.cbSize:=sizeof(FLASHWINFO);

F.hwnd:=hwnd;

F.dwFlags:=FLASHW_ALL or FLASHW_STOP;

F.uCount:=4;

F.dwTimeout:=250;

if not IsWindowVisible(hWnd) then ShowWindow(hWnd,SW_SHOW);

if IsIconic(hWnd) then ShowWindow(hWnd,SW_RESTORE);

SetForegroundWindow(hWnd);

FlashWindowEx(F);

end;

end;