如何做到象msn那样，在新消息来时，任务栏中不停闪烁？

Question

在msn那样，你和别人通话，通话的对话框开着，但如果你在做另一个程序，在新消息来时，任务栏中msn程序不停闪烁（不是指托盘区的图标）,请问这个功能如何实现？

Answer 1

BOOL FlashWindow(    HWND hWnd, // handle to window to flash  
    BOOL bInvert  // flash status 
   );

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Form1.BringToFront;
  Timer1.Interval := GetCaretBlinkTime;
  Timer1.Enabled := not Timer1.Enabled;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FlashWindow(Form2.Handle, TRUE);
end;