PureBasic

Code : Tout sélectionner

Procedure.l DefaultWindowCallback()
  Protected Window.l
  Static Callback.l
  
  If Not Callback
    Window = OpenWindow(#PB_Any, 0, 0, 0, 0, #NULL$, #PB_Window_Invisible)
    
    If Window
      
      Callback = GetWindowLong_(WindowID(Window), #GWL_WNDPROC)
      CloseWindow(Window)
      
    EndIf
  EndIf
  
  ProcedureReturn Callback
EndProcedure