タスクバーのアイコンを点滅させるには (ID:23055)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じで・・・ procedure TForm1.Button1Click(Sender: TObject); var fwi1, fwi2: TFLASHWINFO; begin //ウィンドウのタイトルバー with fwi1 do begin cbSize := SizeOf(fwi1); dwFlags := $1; hWnd := Handle; uCount := 10; dwTimeout := 500; end; FlashWindowEx(fwi1); /タスクバーのボタン with fwi2 do begin cbSize := SizeOf(fwi2); dwFlags := $2; hWnd := Application.Handle; uCount := 10; dwTimeout := 500; end; FlashWindowEx(fwi2); end; WindowsXP SP2, Delphi6 Personal でうまくいきましたよ