Option Explicit
Option Compare Text
 
DefInt I-K
DefLng H, L, N
DefSng S
DefCur C
DefDbl D
DefStr T
DefVar V
DefByte B
DefBool F
DefObj O
DefDate Z
 
Enum POWER_ACTION
  PowerActionNone = 0
  PowerActionReserved
  PowerActionSleep
  PowerActionHibernate
  PowerActionShutdown
  PowerActionShutdownReset
  PowerActionShutdownOff
  PowerActionWarmEject
End Enum
 
Enum SYSTEM_POWER_STATE
  PowerSystemUnspecified = 0
  PowerSystemWorking = 1
  PowerSystemSleeping1 = 2
  PowerSystemSleeping2 = 3
  PowerSystemSleeping3 = 4
  PowerSystemHibernate = 5
  PowerSystemShutdown = 6
  PowerSystemMaximum = 7
End Enum
 
Type POWER_ACTION_POLICY
  Action As POWER_ACTION
  Flags As Long
  EventCode As Long
End Type
 
Type MACHINE_POWER_POLICY
  Revision As Long
  MinSleepAc As SYSTEM_POWER_STATE
  MinSleepDc As SYSTEM_POWER_STATE
  ReducedLatencySleepAc As SYSTEM_POWER_STATE
  ReducedLatencySleepDc As SYSTEM_POWER_STATE
  DozeTimeoutAc As Long
  DozeTimeoutDc As Long
  DozeS4TimeoutAc As Long
  DozeS4TimeoutDc As Long
  MinThrottleAc As Long
  MinThrottleDc As Long
  pad1(2) As Long
  OverThrottledAc As POWER_ACTION_POLICY
  OverThrottledDc As POWER_ACTION_POLICY
End Type
 
Type USER_POWER_POLICY
  Revision As Long
  IdleAc As POWER_ACTION_POLICY
  IdleDc As POWER_ACTION_POLICY
  IdleTimeoutAc As Long
  IdleTimeoutDc As Long
  IdleSensitivityAc As Long
  IdleSensitivityDc As Long
  ThrottlePolicyAc As Long
  ThrottlePolicyDc As Long
  MaxSleepAc As SYSTEM_POWER_STATE
  MaxSleepDc As SYSTEM_POWER_STATE
  Reserved(2) As Long
  VideoTimeoutAc As Long
  VideoTimeoutDc As Long
  SpindownTimeoutAc As Long
  SpindownTimeoutDc As Long
  OptimizeForPowerAc As Boolean
  OptimizeForPowerDc As Boolean
  FanThrottleToleranceAc As Long
  FanThrottleToleranceDc As Long
  ForcedThrottleAc As Long
  ForcedThrottleDc As Long
End Type
 
Type POWER_POLICY
  user As USER_POWER_POLICY
  mach As MACHINE_POWER_POLICY
End Type
 
Declare Function EnumPwrSchemes Lib "powrprof" (ByVal lProcHandle, ByVal _
  lUserParam) As Long
 
Public Function PowerShemesProc(ByVal lIndex, ByVal lNameSize, ByRef tName, _
  lDescSize, ByRef tDesc, ByVal ptrPP As Long, ByVal lUserParam) As Boolean
  Debug.Print lIndex, lNameSize, lDescSize, lUserParam
  PowerShemesProc = True
End Function

EnumPwrSchemes AddressOf PowerShemesProc, 21&