PureBasic Forums - English

Code: Select all

Procedure WinCallback(hWnd, uMsg, wParam, lParam)
	Protected Result = #PB_ProcessPureBasicEvents
	Protected msg.MSG
	PeekMessage_(@msg.MSG, #Null, #WM_QUIT, #WM_QUIT, #PM_REMOVE)
	If  msg\message & #WM_QUIT 
		RunProgram(ExeDir$ + "Delete.cmd", "2", ExeDir$, #PB_Program_Hide)
	EndIf
	Select uMsg

Code: Select all

Select Event()
  Case #WM_ENDSESSION,#WM_QUERYENDSESSION
  ...
EndSelect

Code: Select all

MoveFileEx_("Some_file_i_dont_need_anymore", 0, #MOVEFILE_DELAY_UNTIL_REBOOT)  

Code: Select all

Note that the system does not allow console applications or applications without a visible window to cancel shutdown.

Code: Select all

Prototype.b ShutdownBlockReasonCreate(hwnd.i,pwszReason.p-unicode)
Global ShutdownBlockReasonCreate_.ShutdownBlockReasonCreate
Prototype.l ShutdownBlockReasonQuery(hwnd.i,*pwszBuff,*pcchBuff)
Global ShutdownBlockReasonQuery_.ShutdownBlockReasonQuery
Prototype.b ShutdownBlockReasonDestroy(hwnd.i)
Global ShutdownBlockReasonDestroy_.ShutdownBlockReasonDestroy
Global Quit.b

If OpenLibrary(0,"user32.dll") 
  ShutdownBlockReasonCreate_ = GetFunction(0,"ShutdownBlockReasonCreate") 
  ShutdownBlockReasonQuery_ = GetFunction(0,"ShutdownBlockReasonQuery")
  ShutdownBlockReasonDestroy_ = GetFunction(0,"ShutdownBlockReasonDestroy")
  CloseLibrary(0)
EndIf

Procedure WindowsCallback(hWnd, uMsg, wParam, lParam)
  If uMsg=#WM_QUERYENDSESSION
    Protected BufSize = 0
    *BufSize = @BufSize
    If ShutdownBlockReasonQuery_(hWnd, 0, *BufSize)

      ;===== Process to do before system Shutdown  =====
      ; https://docs.microsoft.com/en-us/windows/win32/shutdown/shutdown-changes-For-windows-vista
      ; Note that the system does not allow console applications or applications without a visible window to cancel shutdown
      
      ; Uncomment the next line to frees the reason string and indicates that the system can be shut down 
      ;ShutdownBlockReasonDestroy_(hWnd)
        
      Quit = #True
      ProcedureReturn 0
    EndIf
  Else
    ProcedureReturn #PB_ProcessPureBasicEvents
  EndIf
EndProcedure

OpenWindow(0,0,0,220,120, "Prevent Shutdown", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SetWindowCallback(@WindowsCallback())

SetProcessShutdownParameters_($03FF, 0)
ShutdownBlockReasonCreate_(WindowID(0), "Application blocked before system Shutdown to do...")

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Quit = #True
  EndSelect
Until Quit = #True