DELPHI中如何闪烁应用程序窗口或任务栏按钮

使用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控件才能连续闪烁。