PureBoard

Code: Alles auswählen

;Fenster öffnen
hwnd = OpenWindow(0,0,0,200,200,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,"Flash Window")

;Die Strukture FLASHWINFO wird für den 
;Win Api Befehl FlashWindowEx_() gebraucht
Structure FLASHWINFO
  cbSize.l
  hwnd.l
  dwFlags.l
  uCount.l
  dwTimeout.l
EndStructure 

;Variable mit der Strukture FLASHWINFO erstellen
Info.FLASHWINFO

;Größe der Strukture in Bytes
Info\cbSize = SizeOf(FLASHWINFO) 

;Die Titelleiste welches Fensters blinken soll
Info\hwnd   = hwnd 

;Flags:
;#FLASHW_CAPTION: Lässt nur die Titelleiste blinken (In Hex: $5)
;#FLASHW_TRAY   : Lässt nur das Teil in der Taskbar blinken  (In Hex: $6)
;#FLASHW_ALL    : Beides zusammen (In Hex: $7)
;Es gibt noch mehr Flags, die aber meiner Meinung nach nicht 
;nützlich sind
Info\dwFlags= $7;#FLASHW_ALL

;Wie oft das Fenster blinken soll.
;Wenn null angegeben wird, dann blinkt
;das Fenster immer
Info\uCount = 0

;Wie lange zwischen dem blinken gewartet werden soll (in Millisekunden),
;Wenn null angegeben wird, dann wird die Standart Blinkwartezeit
;gewählt
;Info\dwTimeout=0
Info\dwTimeout = 200

;Jetzt die Parameter übergeben und die Funktion aufrufen
FlashWindowEx_(Info) 

;Hauptschleife
Repeat : Until WindowEvent() = #PB_Event_CloseWindow