PureBoard

Code: Alles auswählen

Procedure WindowCallback( hWnd, uMsg, wParam, lParam )
  Select uMsg
      
    Case #WM_ENDSESSION
      ;pc wird heruntergefahren...
      ProcedureReturn 0
      
    Case #WM_POWERBROADCAST
      
      Select wParam
        Case #PBT_APMPOWERSTATUSCHANGE
        Case #PBT_APMRESUMEAUTOMATIC
        Case #PBT_APMRESUMESUSPEND
          ;pc kommt aus standby
        Case #PBT_APMSUSPEND
          ;pc geht in standby
        Case #PBT_POWERSETTINGCHANGE
        Case #PBT_APMBATTERYLOW
        Case #PBT_APMOEMEVENT
        Case #PBT_APMQUERYSUSPEND
        Case #PBT_APMQUERYSUSPENDFAILED
        Case #PBT_APMRESUMECRITICAL
          
      EndSelect
      
    Default
      
  EndSelect
  
  ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure