• Home
 · 
• Custom Controls/Forms/Menus
 · 
• some delay to the system for shutdown

some delay to the system for shutdown

some delay to the system for shutdown

API Declarations


Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long



Rate some delay to the system for shutdown

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

lblTime.Caption = Format(GetTickCount / 60000, "0") 'How long in windows in (seconds)
If Val(lblTime.Caption) = 80 Then
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End
End If
End Sub