PureBasic

Code : Tout sélectionner

; Auteur : Le Soldat Inconnu 
; Version de PB : 3.9 
; 
; Explication du programme : 
; Lier une fenêtre au bureau. Ainsi, quand on réduit les applications, cette fenêtre reste visible. 

; J'ai rajouté ça.
If OpenLibrary(0,"User32.dll")
  hBureau = CallFunction(0,"GetShellWindow")
  CloseLibrary(0)
EndIf

; Création de la fenêtre liée au bureau 
OpenWindow(0, 0, 0, 100, 100, #PB_Window_BorderLess | #PB_Window_ScreenCentered, "Liée au bureau", hBureau) 
; Il suffit de mettre en parent la fenêtre qui représente le bureau 
; La fonction GetShellWindow_() permet de récupérer le handle du bureau 

; Création de la GadgetList 
CreateGadgetList(WindowID()) 

ButtonGadget(0, 0, 0, 100, 100, "Quitter") 

Repeat 
  Event = WaitWindowEvent() 
  
  If Event = #PB_Event_Gadget 
    Select EventGadgetID() 
      Case 0 ; Appui sur le bouton quitter 
        Event = #PB_EventCloseWindow 
    EndSelect 
  EndIf 
  
Until Event = #PB_EventCloseWindow