K:/Dev/___Code/___bak/.bmx/flashwindowex.bmx.gui.release.win32.x86.o(code+0x1f0): undefined reference to `FlashWindowEx@4'

'fängt 10 sekunden nach start an zu flashen, wenns inaktiv ist
SuperStrict

Type FLASHWINFO
      Field cbSize:Int
      Field hwnd:Int
      Field dwFlags:Int
      Field uCount:Int
      Field dwTimeout:Int
   End Type

Const FLASHW_STOP:Int       = 0
Const FLASHW_CAPTION:Int    = 1
Const FLASHW_TRAY:Int       = 2
Const FLASHW_ALL:Int        = FLASHW_CAPTION | FLASHW_TRAY
Const FLASHW_TIMER:Int       = 4
Const FLASHW_TIMERNOFG:Int = 12


Extern "win32"
      Function FlashWindowEx:Int (FWInfo:Byte Ptr)="FlashWindowEx@4"
   End Extern


Function FlashWindow (gadget:Tgadget)
      Local FWinfo:FLASHWINFO = New FLASHWINFO
      FWInfo.cbSize = SizeOf(FWinfo)
      FWInfo.hwnd = QueryGadget (gadget, QUERY_HWND)
      FWInfo.dwFlags = FLASHW_ALL | FLASHW_TIMERNOFG
      FWInfo.uCount = 0
      FWInfo.dwTimeout = 0
      FlashWindowEx (FWInfo)
   End Function


'---------------------------------------------------------------- test

Local window:TGadget = CreateWindow ("Blink mich dusselig!!!", 200, 200, 500, 300)
Local a:Int=0
'FlashWindow( window )
Local timer:TTimer = CreateTimer(1)

Repeat
   Select WaitEvent ()
        Case EVENT_WINDOWCLOSE
            End
      Case EVENT_TIMERTICK
         a = a + 1
         If a = 10 Then
            FlashWindow(window)
         EndIf
     End Select
  Forever

SuperStrict
Framework brl.maxgui
Import brl.win32maxgui
Import brl.eventqueue
Import brl.event
Import brl.timer

?Win32
   Import PUB.win32
   Extern "Win32"
      Function FreeLibrary(HLib:Int) 
   End Extern
   
   
   Global FlashWindowEx:Int(pfwi:Byte Ptr)
   Local Lib:Int = LoadLibraryA("user32")
   FlashWindowEx = GetProcAddress(Lib,"FlashWindowEx")
   FreeLibrary Lib
?linux
   Function FlashWindowEx(hWnd:Int,Mode:Int,Count:Int=3,Speed:Int=0)
      Return
   End Function
?osx
   Function FlashWindowEx(hWnd:Int,Mode:Int,Count:Int=3,Speed:Int=0)
      Return
   End Function
?

Type TWindowFlasher

   Function FlashWindow:Int(Window:TGadget,FlashMode:Int,FlashCount:Int,Speed:Int=0)
      Local FWI:TFlashInfo = New TFlashInfo
      FWI.cbSize = SizeOf(TFlashInfo)
      FWI.dwFlags = FlashMode
      FWI.dwTimeout = Speed
      FWI.hWnd = QueryGadget(window,1)
      FWI.uCount = FlashCount
      FlashWindowEx(FWI)
   End Function
   
End Type

Type TFlashInfo

   Field cbSize:Int
   Field hWnd:Int
   Field dwFlags:Int
   Field uCount:Int
   Field dwTimeOut:Int

End Type 

'--------------------- sample

Local hWnd:TGadget = CreateWindow("TestWindow",0,0,800,600,Null,WINDOW_TITLEBAR)
Local hButton:TGadget = CreateButton("Flash window",200,200,200,25,hWnd)
Local timer:TTimer = TTimer.create(200)

Repeat

   WaitEvent()
   Select currentevent.id
      Case $4003
         End
      Case EVENT_GADGETACTION
         TWindowFlasher.FlashWindow(hWnd,1,3,200)
   End Select
   
   timer.wait()
Forever