Page 1 of 1
Apagar el computador
Posted: Mon Aug 11, 2008 3:49 am
by 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
Re: Apagar el computador
Posted: Mon Aug 11, 2008 7:29 am
by FiveWiDi
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.
Posted: Mon Aug 11, 2008 12:47 pm
by karinha
Hola, mira se ayuda:
Code: Select all
#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"
Posted: Mon Aug 11, 2008 1:18 pm
by TecniSoftware
Para apagar el pc yo hago asi:
cExec := "C:\Windows\System32\ShutDown.exe"
ShellExecute( 0, "Open", cExec, " -s", 0, 1 )
Salu2!