各位大大,
請問如何用Delphi做出像MSN收到訊息時,工具列或視窗會出現的閃爍效果?

Timer1.Interval 設為 300

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FlashWindow(Form1.Handle, True); // 這行會閃爍 Form1 的 Title Bar
  FlashWindow(Application.Handle, True); // 這行會閃爍在螢幕最底下工作列的 Application
end;

procedure Form1.FlashMe; var FWinfo: TFlashWInfo; begin FWinfo.cbSize := SizeOf(FWinfo); FWinfo.hwnd := Application.Handle; FWinfo.dwflags := FLASHW_ALL or FLASHW_TIMERNOFG; FWinfo.ucount := 0; FWinfo.dwtimeout := 0; FlashWindowEx(FWinfo); end; 更好用 (Window 95 無此函式)