FiveTech Support Forums

#include "hbclass.ch"
#include "fivewin.ch"

//definiciones para la forma de llamar a la dll
#DEFINE DC_CALL_CDECL		0x0010
#DEFINE DC_CALL_STD        0x0020

//definiciones para el apagado, rebooteo o cierre de sesión de windows
#DEFINE EWX_LOGOFF			0
#DEFINE EWX_POWEROFF    	0x00000008
#DEFINE EWX_REBOOT      	0x00000002
#DEFINE EWX_RESTARTAPPS    0x00000040
#DEFINE EWX_SHUTDOWN       0x00000001
#DEFINE EWX_FORCE          0x00000004
#DEFINE EWX_FORCEIFHUNG    0x00000010

FUNCTION Main()
	LOCAL nResult

	/*nDll  := DllLoad( "User32.dll" )
   pFunc := GetProcAddress( nDll, "ExitWindowsEx" )

   CallDll( pFunc, EWX_POWEROFF, EWX_FORCEIFHUNG )

   DllUnload( nDll )*/

	nResult:=DllCall( "User32.dll", DC_CALL_STD, "ExitWindowsEx", EWX_POWEROFF, EWX_FORCEIFHUNG)

RETURN NIL

#include "hbclass.ch"
#include "fivewin.ch"

//definiciones para la forma de llamar a la dll
#DEFINE DC_CALL_CDECL		0x0010
#DEFINE DC_CALL_STD        0x0020

//definiciones para el apagado, rebooteo o cierre de sesión de windows
#DEFINE EWX_LOGOFF			0
#DEFINE EWX_POWEROFF    	8	//0x00000008
#DEFINE EWX_REBOOT      	2	//0x00000002
#DEFINE EWX_RESTARTAPPS    40	//0x00000040
#DEFINE EWX_SHUTDOWN       1	//0x00000001
#DEFINE EWX_FORCE          4	//0x00000004
#DEFINE EWX_FORCEIFHUNG    10	//0x00000010

FUNCTION Main()
	LOCAL nResult

	/*nDll  := DllLoad( "User32.dll" )
   pFunc := GetProcAddress( nDll, "ExitWindowsEx" )

   CallDll( pFunc, EWX_POWEROFF, EWX_FORCEIFHUNG )

   DllUnload( nDll )*/

	//nResult:=DllCall( "User32.dll", DC_CALL_STD, "ExitWindowsEx", EWX_POWEROFF, EWX_FORCEIFHUNG)
	IF MsgNoYes( "¿Desea apagar el equipo?", "Atención")
		nResult:=ExitWndEx( EWX_FORCEIFHUNG, 0)
		nResult:=ExitWndEx( EWX_SHUTDOWN, 0)
	ENDIF

	//nResult:=ExitWndEx( EWX_SHUTDOWN, 0)

RETURN NIL



DLL32 FUNCTION ExitWndEx( uFlags AS DWORD, dwRes AS DWORD ) AS BOOL PASCAL FROM "ExitWindowsEx" LIB "user32.dll"

//definiciones para el apagado, rebooteo o cierre de sesión de windows 
#DEFINE EWX_LOGOFF         0 
#DEFINE EWX_POWEROFF       8   //0x00000008 
#DEFINE EWX_REBOOT         2   //0x00000002 
#DEFINE EWX_RESTARTAPPS    40   //0x00000040 
#DEFINE EWX_SHUTDOWN       1   //0x00000001 
#DEFINE EWX_FORCE          4   //0x00000004 
#DEFINE EWX_FORCEIFHUNG    10   //0x00000010

function Main()

   ExitWindowsEx( nOr( EWX_SHUTDOWN, EWX_FORCEIFHUNG ) )

return nil

#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

HB_FUNC( EXITWINDOWSEX )
{
   hb_retl( ExitWindowsEx( hb_parnl( 1 ), hb_parnl( 2 ) ) );
}

#pragma ENDDUMP

'------------Declarar esta funcion en un modulo...
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
'-----------------------
lresult = ExitWindowsEx(EWX_REBOOT, 0&)   '---- Reinicia el sistema
lresult = ExitWindowsEx(EWX_SHUTDOWN, 0&)   '---- Apaga el sistema

Call ExitWindowsEX(1,0) --> Reinicia (creo)
Call ExitWindowsEX(2,0) --> Apaga
Call ExitWindowsEX(6,0) --> FOrzado

Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)
i = ExitWindowsEx(1, 0&)
i = ExitWindowsEx(0, 0&)
i = ExitWindowsEx(2, 0&)

#include "hbclass.ch"
#include "fivewin.ch"

//definiciones para el apagado, rebooteo o cierre de sesión de windows
#DEFINE EWX_LOGOFF			0
#DEFINE EWX_POWEROFF    	8	//0x00000008
#DEFINE EWX_REBOOT      	2	//0x00000002
#DEFINE EWX_RESTARTAPPS    40	//0x00000040
#DEFINE EWX_SHUTDOWN       1	//0x00000001
#DEFINE EWX_FORCE          4	//0x00000004
#DEFINE EWX_FORCEIFHUNG    10	//0x00000010

FUNCTION Main()
	LOCAL nResult

	IF MsgNoYes( "¿Desea apagar el equipo?", "Atención")
		ExitWindowsEx( nOr( EWX_LOGOFF, 0 ) )
	ENDIF

RETURN NIL


#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

HB_FUNC( EXITWINDOWSEX )
{
   hb_retl( ExitWindowsEx( hb_parnl( 1 ), hb_parnl( 2 ) ) );
}

#pragma ENDDUMP

oRemoteShell:=CreateObject("WScript.Shell")
oRemoteShell:Run("ShutDown -s -m \\NombrePC",0,.F.)
oRemoteShell:=nil