Apagar el computador

[leandro]

Amigos del foro tengan buen dia.....

Alguien sabe como puedo hacer para apagar el computador desde una aplicacion de fw? bueno no se si se puede?

de antemano gracias

[FiveWiDi]

Amigos del foro tengan buen dia.....

Alguien sabe como puedo hacer para apagar el computador desde una aplicacion de fw? bueno no se si se puede?

de antemano gracias

http://forums.fivetechsoft.com/viewtopic.php?t=1628

Busca 'ShutDown'

Saludos
Carlos G.

[karinha]

Hola, mira se ayuda:

Code: Select all  Expand view  RUN

#Include "FiveWin.Ch"

#Define WM_SYSCOMMAND      274 // &H112
#Define SC_TASKLIST      61744 // &HF130
#Define SC_SCREENSAVE    61760 // &HF140
#Define SW_HIDE              0 // &H0
#Define SW_SHOWNA            8 // &H8
#Define SW_SHOW              5 // &H5
#Define SW_SHOWNORMAL        1
#Define SC_MONITORPOWER  61808 // &HF170   Gracias a Ramon Ramirez por la info
#Define SM_CLEANBOOT        67

//

   //Apagar el Equipo si nos deja otras aplicaciones que esten abiertas
   DEFINE BUTTON OF oBar  PROMPT "Apagar Maquina Confirma." ;
          FONT oFnt ACTION ( Apaga(1,0) )

   //Reiniciar el equipo
   DEFINE BUTTON OF oBar  PROMPT "Reiniciar a Maquina." ;
          FONT oFnt ;
          ACTION ( Apaga(2,0) )

   //Apagar el Equipo sin pedir confirmacion ni nada. Las aplicaciones abiertas que se las apañen.. ;)
   DEFINE BUTTON OF oBar  PROMPT "Apaga e Vai P/XD." ;
          FONT oFnt ;
          ACTION ( Apaga(5,0) )

//

DLL32 Function Apaga(uFlags As LONG,dwReserved AS LONG) ;
    AS LONG PASCAL FROM "ExitWindowsEx" LIB "USER32.DLL"



[TecniSoftware]

Para apagar el pc yo hago asi:

cExec := "C:\Windows\System32\ShutDown.exe"
ShellExecute( 0, "Open", cExec, " -s", 0, 1 )


Salu2!