// 안녕하세요  김영대(http://www.howto.pe.kr) 입니다  
// 아래 예제를 참고해 보세요

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
    procedure FormFlash(flash: Boolean);
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.WMSysCommand(var Msg:TWMSysCommand) ;
begin
  if Msg.CmdType = SC_MINIMIZE then
    FormFlash(True); // Minimize 될때 깜박이 켜기

  inherited;
end;

procedure TForm1.FormFlash(flash: Boolean);
var
  FWI: TFlashWInfo;
begin
  if flash then
  begin
    FWI.cbSize  := SizeOf(FLASHWINFO);
    FWI.hwnd    := Application.Handle;
    FWI.dwFlags := FLASHW_ALL or FLASHW_TIMER;
    FWI.uCount  := 30;
    FWI.dwTimeout := 0;
    FlashWindowEx(FWI);
  end
  else
  begin
    FWI.cbSize  := SizeOf(FLASHWINFO);
    FWI.hwnd    := Application.Handle;
    FWI.dwFlags := FLASHW_STOP; // 해제
    FWI.ucount  := 0;
    FWI.dwtimeout := 0;
    FlashWindowEx(FWI);
  end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  FormFlash(False); // focus를 받을때 깜박이 끄기
end;

end.