窗口闪烁

让窗口在任务栏上闪烁：

 

var FWinfo: TFlashWInfo;
begin
  with FWinfo do
  begin
    cbSize:=20;
    hwnd:=Form2.Handle;  // 要闪烁的窗口的handle
    dwFlags:=FLASHW_TRAY;// 含义下面列出
    uCount:=10;
    dwTimeout:=0;
  end;
  FlashWindowEx(FWinfo);

 

另，dwFlags属性的值是：

 

{$EXTERNALSYM FLASHW_STOP}
  FLASHW_STOP = $0; // 停止闪烁.系统把窗口恢复到起始状态

  {$EXTERNALSYM FLASHW_CAPTION}
  FLASHW_CAPTION = $1; // 闪烁窗口标题

  {$EXTERNALSYM FLASHW_TRAY}
  FLASHW_TRAY = $2; // 闪烁任务栏按钮

  {$EXTERNALSYM FLASHW_ALL}
  FLASHW_ALL = FLASHW_CAPTION or FLASHW_TRAY; // 闪烁窗口标题和任务栏按钮

  {$EXTERNALSYM FLASHW_TIMER}
  FLASHW_TIMER = $4; // 在设置FLASHW_STOP标记之前,连续闪烁

  {$EXTERNALSYM FLASHW_TIMERNOFG}
  FLASHW_TIMERNOFG = $C;

 

 

注意：窗口不能在获得焦点以后自动停止闪烁，要自己处理。