Browse Source

* flashwindowex, mantis #35048, patch by 440bx

git-svn-id: trunk@41262 -
marco 6 years ago
parent
commit
3a6d0d9d41
3 changed files with 18 additions and 0 deletions
  1. 7 0
      rtl/win/wininc/defines.inc
  2. 1 0
      rtl/win/wininc/func.inc
  3. 10 0
      rtl/win/wininc/struct.inc

+ 7 - 0
rtl/win/wininc/defines.inc

@@ -5417,6 +5417,13 @@ Type
 
 
      C3_LEXICAL     = 1024;
      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! ---------------  }
   { --------------------- old stuff, need to organize! ---------------  }
   { BEGINNING of windowsx.h stuff from old headers:  }
   { BEGINNING of windowsx.h stuff from old headers:  }
   {  Not convertable by H2PAS
   {  Not convertable by H2PAS

+ 1 - 0
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 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 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 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 }
 { was missing, bug report 1808 PM }
 {
 {

+ 10 - 0
rtl/win/wininc/struct.inc

@@ -821,6 +821,16 @@ Const
      TDCB = DCB;
      TDCB = DCB;
      PDCB = ^DCB;
      PDCB = ^DCB;
 
 
+     FLASHWINFO = record
+         cbSize    : UINT;
+         hwnd      : HWND;
+         dwFlags   : DWORD;
+         uCount    : UINT;
+         dwTimeOut : DWORD;
+     end;
+    TFLASHWINFO  = FLASHWINFO;
+    PFLASHWINFO  = ^FLASHWINFO;
+
   const
   const
      bm_DCB_fBinary = $1;
      bm_DCB_fBinary = $1;
      bp_DCB_fBinary = 0;
      bp_DCB_fBinary = 0;