使用FlashWindowEx函数:

一、设置FlashWInfo
Delphi中TFlashWInfo申明如下:
Type
TFlashWInfo = record
cbSize : LongInt;
hWnd : LongInt;
dwFlags : LongInt;
uCount : LongInt;
dwTimeout : LongInt;
end;
例:
var
FWinfo: TFlashWInfo;
begin
FWinfo.cbSize := 20;
FWinfo.hwnd := Application.Handle; // 闪烁窗口的句柄
FWinfo.dwflags := FLASHW_ALL;
FWinfo.ucount := 10; // 闪烁的次数
FWinfo.dwtimeout := 0; // 速度以毫秒为单位, 0 默认为与指针闪烁的速率相同
end;

dwflags指示闪烁的方式:
FLASHW_STOP = 0 // 停止闪烁
FLASHW_CAPTION = 1 // 闪烁窗口标题
FLASHW_TRAY = 2 // 闪烁任务栏按钮
FLASHW_ALL = 3 // 闪烁窗口标题与任务栏按钮
FLASHW_TIMER = 4 // 不停地闪烁,直到FLASHW_STOP标志设置
FLASHW_TIMERNOFG = 5 // 不停地闪烁直到窗口被前置

二、调用FlashWindowEx函数
FlashWindowEx(FWinfo);

以上只有在Windows 98或更高版本操作系统上才有效,如果要兼容Windows 95,就需要使用FlashWindow函数,但些函数每次只闪烁一次,需要配合Timer控件才能连续闪烁。

05-11 17:04