FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Apagar el computador
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Apagar el computador
Posted: Mon Aug 11, 2008 03:49 AM

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? :lol:

de antemano gracias

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: Apagar el computador
Posted: Mon Aug 11, 2008 07:29 AM
leandro wrote: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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Apagar el computador
Posted: Mon Aug 11, 2008 12:47 PM
Hola, mira se ayuda:

#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"
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 244
Joined: Fri Oct 28, 2005 06:29 PM
Apagar el computador
Posted: Mon Aug 11, 2008 01:18 PM

Para apagar el pc yo hago asi:

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

Salu2!

Alejandro Cebolido

Buenos Aires, Argentina

Continue the discussion