FlashWindowEx example
Return to Introduction 
The following code demonstrates how to use the FlashWindowEx function.


procedure acFlashWindow(Wnd: THandle; Count: Integer; FlashTaskIcon: Boolean);
var
  FormFlashInfo, TaskFlashInfo: TFlashWInfo;
begin
  { FlashWindowEx does not supported in Win95 }

  if @FlashWindowEx = nil then Exit;

  with FormFlashInfo do
   begin
    cbSize := SizeOf(FlashWInfo);
    hwnd := Wnd;
    dwFlags := FLASHW_ALL;
    uCount := Count;
    dwTimeout := 0
;
   end;
  TaskFlashInfo := FormFlashInfo;
  TaskFlashInfo.hwnd := Application.Handle;

  FlashWindowEx(FormFlashInfo);
  FlashWindowEx(TaskFlashInfo);
end;