Reboot despues de la ejecucion de determinado programa

[gorsan]

Hola a todos. De nuevo les planteo un problema, supongo que fácil para ustedes que son unos monstruos, y que consiste en lo siguiente:

Necesito rebotar una maquina una vez que haya terminado determinda aplicacion. En concreto, la aplicacion activa/desactiva los puertos USB y cuando esta termina necesito que la maquina se reinicie para que los cambios surtan efecto y todo ello por control remoto. ¿Cómo puedo saber cuando esa aplicacion a terminado para lanzar el reboot en mi aplicacion?

Gracias por sus respuestas.

[jhonny]

No necesitas capturar una especie de menaje "remoto" que indique que el proceso terminó para simplemente reiniciar esa maquina.

Al final de todo el proceso, dentro del mismo aplicativo, simplemente haces lo que indica dec, en el siguiente link...

http://www.clubdelphi.com/trucos/ind...l=0&scrollb=57

[gorsan]

Lo que necesito realmente es saber cuendo determinado programa, por ejemplo, programa.exe deja de estar activo en el "Administrador de tareas de Windows" porque el usuario lo ha cerrado o porque ha terminado su ejecucion. Es en ese momento, cuando acaba la aplicacion, cuando yo debo proceder a reboot.

[roman]

Intenta con el ejemplo que pongo aquí.

// Saludos

[gorsan]

Muchas gracias Roman. Es justo lo que necesitaba.
Ahora: ¿Como hago un reboot forzoso?

[[escafandra]]

Empezado por gorsan

...Ahora: ¿Como hago un reboot forzoso?

Bueno, quizás jhonny ya te dió la solución.

Saludos.

[gorsan]

Código Delphi [-]
if ExitWindowsEx (0,0) = 0 then
  showmessage ('No puedorrr reiniciar Windows');

if ExitWindowsEx (1,0) = 0 then
  showmessage ('No puedorrr cerrar el ordenador');

if ExitWindowsEx (2,0) = 0 then
  showmessage ('No puedorrr reiniciar el ordenador');

¿por qué me da el mensaje de error Incompatible types?
¿donde esta fallando?
Se supone que la funcion ExitWindowsEx esta en Windows.dcu ¿no?

[[escafandra]]

ExitWindowsEx retorna BOOL

Saludos.

[gorsan]

Necesito que se reinicie el pc. De la rutina que menciona Jhonny, es decir:

Código Delphi [-]
if ExitWindowsEx (0,0) = False then showmessage ('No puedorrr reiniciar Windows');
if ExitWindowsEx (1,0) = False then showmessage ('No puedorrr cerrar el ordenador');
if ExitWindowsEx (2,0) = False then showmessage ('No puedorrr reiniciar el ordenador');

solo se produce la (0,0), es decir, que se reinicia windows. Las otras dos, es decir, las (1,0) y (2,0), cerrar ordenador y reiniciar ordenador respectivamente no se producen.
Seguro que es porque el ordenador esta en un dominio y faltan privilegios de seguridad o no se cual es la razon.
¿alguien tiene alguna idea?
Gracias.

[[escafandra]]

Código Delphi [-]
ExitWindowsEx(0,0); // EWX_LOGOFF - Cierra los procesos y la sesión del usuario. 
ExitWindowsEx(2,0); // EWX_REBOOT - Reboot. Debes tener privilegio SE_SHUTDOWN_NAME 
ExitWindowsEx(8,0); // EWX_POWEROFF - Apagar. Debes tener privilegio SE_SHUTDOWN_NAME

Saludos.

[[Lepe]]

Aqui

Saludos

[gorsan]

Gracias [Lepe]. Tiene buena pinta la funcion pero no compila.

Código Delphi [-]
    AdjustTokenPrivileges(HToken, FALSE,
      TokenPriv, 0, PTokenPrivileges(NIL)^, H);

Aqui da error "ambiguous overloaded call to 'AdjustTokenPrivileges' "
Uso Windows xp SP3 y Delphi 7
¿qué esta pasando?

[gorsan]

Por favor que alguien me diga que es lo que esta pasando. Me he quedado colgao ...

[[escafandra]]

Empezado por gorsan

Código Delphi [-]
AdjustTokenPrivileges(HToken, FALSE, TokenPriv, 0, TokenPrivileges(NIL)^, H);

Aqui da error "ambiguous overloaded call to 'AdjustTokenPrivileges' "

Parece que estas tratando de sobrecargar la función....
Yo tengo Delphi 6 y no me da ese error. No se si tu versión tiene la función AdjustTokenPrivileges como parte de el, ademas de la API.

Como la llamada que interesa es a la API AdjustTokenPrivileges, trata de hacerlo así:

Código Delphi [-]
Windows.AdjustTokenPrivileges(HToken, FALSE, TokenPriv, 0, PTokenPrivileges(NIL)^, H);

Mira tambien si la has redeclarado....

Saludos.

[gorsan]

Gracias escafandra. Por fin compila. Poniendo la palabra Windows delante de la funcion parece que se entera. Muchas gracias.
Con esto doy por concluido el hilo.
Gracias a todos por vuestra ayuda, especialmente a Roman y escafandra.