From 3a6d0d9d41a22bb628379b2cf25ca1bd926c8b59 Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sat, 9 Feb 2019 12:07:30 +0000
Subject: [PATCH]  * flashwindowex, mantis #35048, patch by 440bx

git-svn-id: trunk@41262 -
---
 rtl/win/wininc/defines.inc |  7 +++++++
 rtl/win/wininc/func.inc    |  1 +
 rtl/win/wininc/struct.inc  | 10 ++++++++++
 3 files changed, 18 insertions(+)

diff --git a/rtl/win/wininc/defines.inc b/rtl/win/wininc/defines.inc
index 8cbf7683f1..779843ab41 100644
--- a/rtl/win/wininc/defines.inc
+++ b/rtl/win/wininc/defines.inc
@@ -5417,6 +5417,13 @@ Type
 
      C3_LEXICAL     = 1024;
 
+     FLASHW_STOP         = $00000000;
+     FLASHW_CAPTION      = $00000001;
+     FLASHW_TRAY         = $00000002;
+     FLASHW_ALL          = (FLASHW_CAPTION or FLASHW_TRAY);
+     FLASHW_TIMER        = $00000004;
+     FLASHW_TIMERNOFG    = $0000000C;
+
   { --------------------- old stuff, need to organize! ---------------  }
   { BEGINNING of windowsx.h stuff from old headers:  }
   {  Not convertable by H2PAS
diff --git a/rtl/win/wininc/func.inc b/rtl/win/wininc/func.inc
index 0de11a4b02..d0c94db918 100644
--- a/rtl/win/wininc/func.inc
+++ b/rtl/win/wininc/func.inc
@@ -1061,6 +1061,7 @@ procedure SHFreeNameMappings(_para1:HANDLE); external 'shell32' name 'SHFreeName
 function SHGetFileInfo(_para1:LPCTSTR; _para2:DWORD; var _para3:SHFILEINFO; _para4:UINT; _para5:UINT):DWORD_PTR; external 'shell32' name 'SHGetFileInfo';
 function SHGetPathFromIDList(_para1:LPCITEMIDLIST; _para2:LPTSTR):WINBOOL; external 'shell32' name 'SHGetPathFromIDList';
 function SHGetSpecialFolderLocation(_para1:HWND; _para2:longint; var _para3:LPITEMIDLIST):HRESULT; external 'shell32' name 'SHGetSpecialFolderLocation';
+function FlashWindowEx(pfwi : PFLASHWINFO) : BOOL; stdcall; external 'user32' name 'FlashWindowEx';
 
 { was missing, bug report 1808 PM }
 {
diff --git a/rtl/win/wininc/struct.inc b/rtl/win/wininc/struct.inc
index e79015dd64..9a5c5d0a19 100644
--- a/rtl/win/wininc/struct.inc
+++ b/rtl/win/wininc/struct.inc
@@ -821,6 +821,16 @@ Const
      TDCB = DCB;
      PDCB = ^DCB;
 
+     FLASHWINFO = record
+         cbSize    : UINT;
+         hwnd      : HWND;
+         dwFlags   : DWORD;
+         uCount    : UINT;
+         dwTimeOut : DWORD;
+     end;
+    TFLASHWINFO  = FLASHWINFO;
+    PFLASHWINFO  = ^FLASHWINFO;
+
   const
      bm_DCB_fBinary = $1;
      bp_DCB_fBinary = 0;