title: Flash application's task bar button?
body: <p>With Delphi 10 Seattle, I've tried to make the application's Windows taskbar button flash using this code:</p>
  
  <pre><code>procedure TForm1.Button1Click(Sender: TObject);
  begin
    FlashWindow(Application.Handle, True); 
  end;
  </code></pre>
  
  <p>or:</p>
  
  <pre><code>procedure TForm1.Button1Click(Sender: TObject);
  var
    Flash: FLASHWINFO;
  begin
    FillChar(Flash, SizeOf(Flash), 0);
    Flash.cbSize := SizeOf(Flash);
    Flash.hwnd := Application.Handle;
    Flash.dwFlags := FLASHW_ALL or FLASHW_TIMER;
    Flash.dwTimeout := 1000;
    FlashWindowEx(Flash);
  end;
  </code></pre>
  
  <p>or:</p>
  
  <pre><code>procedure TForm1.Button1Click(Sender: TObject);
  var
    Flash: FLASHWINFO;
  begin
    FillChar(Flash, SizeOf(Flash), 0);
    Flash.cbSize := SizeOf(Flash);
    Flash.hwnd := Application.Handle;
    Flash.uCount := 5;
    Flash.dwTimeOut := 2000;
    Flash.dwFlags := FLASHW_ALL;
    FlashWindowEx(Flash);  
  end;
  </code></pre>
  
  <p>OS: Windows 7 x64 SP1</p>
  
  <p>Unfortunately, this does not work: The task bar button does not flash at all.</p>
  
  <p>How can I make this work?</p>