System Admin

'IN A MODULE<br />
Option Explicit<br />
<br />
Public oldProcAddress As Long<br />
<br />
Public Enum enPowerBroadcastType<br />
     PBT_APMQUERYSUSPEND = &H0<br />
     PBT_APMQUERYSTANDBY = &H1<br />
     PBT_APMQUERYSUSPENDFAILED = &H2<br />
     PBT_APMQUERYSTANDBYFAILED = &H3<br />
     PBT_APMSUSPEND = &H4<br />
     PBT_APMSTANDBY = &H5<br />
     PBT_APMRESUMECRITICAL = &H6<br />
     PBT_APMRESUMESUSPEND = &H7<br />
     PBT_APMRESUMESTANDBY = &H8<br />
End Enum<br />
<br />
Public Const BROADCAST_QUERY_DENY = &H424D5144<br />
Public Const WM_POWER = &H48<br />
Public Const WM_POWERBROADCAST = &H218<br />
Public Const PWR_SUSPENDREQUEST = 1<br />
Public Const GWL_WNDPROC = (-4)<br />
Public Const PWR_FAIL = (-1)<br />
<br />
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long<br />
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long<br />
<br />
'\\ In a .BAS file:<br />
'\\ --[VB_WindowProc]--------------------------------------------<br />
'\\ 'typedef LRESULT (CALLBACK* WNDPROC)(HWND, UINT, WPARAM,<br />
'\\ LPARAM);<br />
'\\ Parameters:<br />
'\\ hwnd - window handle receiving message<br />
'\\ wMsg - The window message (WM_..etc.)<br />
'\\ wParam - First message parameter<br />
'\\ lParam - Second message parameter<br />
'\\ Note:<br />
'\\ When subclassing a window proc using this, set the<br />
'\\  eventhandlerhOldWndProc property to the window's previous<br />
'\\ window proc address.<br />
'\\ -------------------------------------------------------------'\\ You have a royalty free right to use, reproduce, modify,<br />
'\\ publish and mess with this code<br />
'\\ I'd like you to visit http://www.merrioncomputing.com for<br />
'\\  updates, but won't force you<br />
'\\ ----------------------------------------------------------<br />
<br />
Public Function VB_WindowProc(ByVal hWnd As Long, ByVal wMsg As _<br />
  Long, ByVal wParam As Long, ByVal lParam As Long) As Long<br />
<br />
On Local Error Resume Next<br />
Dim lRet As Long<br />
<br />
<br />
'\\ If its a power suspending broadcast, kill it...<br />
If wMsg = WM_POWER And wParam = PWR_SUSPENDREQUEST Then<br />
   '\\ This is the message in Windows NT/2000<br />
    VB_WindowProc = PWR_FAIL<br />
ElseIf wMsg = WM_POWERBROADCAST And wParam = _<br />
      PBT_APMQUERYSUSPEND Then<br />
    VB_WindowProc = BROADCAST_QUERY_DENY<br />
Else<br />
VB_WindowProc = CallWindowProc(oldProcAddress, hWnd, wMsg, _<br />
       wParam, lParam)<br />
End If<br />
<br />
End Function<br />
<br />
'\\ IN OUR APP's MAIN FORM:<br />
Private Sub Form_Load()<br />
<br />
oldProcAddress = SetWindowLong(Me.hWnd, GWL_WNDPROC, _<br />
      AddressOf VB_WindowProc)<br />
<br />
End Sub<br />
<br />
Private Sub Form_Unload(Cancel As Integer)<br />
<br />
Call SetWindowLong(Me.hWnd, GWL_WNDPROC, oldProcAddress)<br />
<br />
End Sub

if( message == WM_POWERBROADCAST )
{
   switch( wParam )
   {
      case PBT_APMQUERYSUSPEND:
      {
         return BROADCAST_QUERY_DENY;
      }
   }
}