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.

; 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", GetShellWindow_())
; 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

Code : Tout sélectionner

POLINK:error:Unresolved external symbol'_GetShellWindow'.

Code : Tout sélectionner

Ah, ben si c'est ça que tu veux, en voilà: 

Code: 

hTmp = GetShellWindow_() 
hInstance = GetWindowLong_(hTmp, #GWL_HINSTANCE) 
Buffer$ = Space(256) 

Repeat 
  hTmp = GetTopWindow_(hTmp) 
  GetClassName_(hTmp,Buffer$,256) 
Until Buffer$ = "SysListView32" 

Debug hTmp 
 


Chris