FlashWindowEx example
|
|
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;