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;
- 上一篇 »彻底隐藏你HTML网页的源代码
- 下一篇 »R语言调用的C语言源代码查询