Delphi - APAGAR EL PC

hola:
deseo saber como puedo hacer para crear una accion dentro de un programa que me permita apagar Pc, pero que entes cierre los programas que estén activos...yo pienso que esta debe ser una aplicación de windows, pero cual...

si me puedes dar un ejemplo, sería mucho mejor.
gracias por atender esta consulta.

Hay varias maneras de hacerlo:

ExitWindowsEx(EWX_SHUTDOWN,0);

Sale de Windows de forma segura. Vacía los buffers y para todas las aplicaciones.

ExitWindowsEx(EWX_FORCE,0);

Fuerza a los procesos a terminar. En lugar de aparecer el diálogo "La aplicación no está respondiendo" fuerza a las aplicaciónes que no responden
a terminarse.

ExitWindowsEx(EWX_LOGOFF,0);

Termina todas las aplicaciones ejecutandose en el mismo contexto de seguridad que el proceso que efectua la llamada a ExitWindowsEx, y hace un
log-off del usuario.

ExitWindowsEx(EWX_POWEROFF,0);

Termina todas las aplicaciones y apaga el ordenador.

ExitWindowsEx(EWX_REBOOT,0);

Termina todas las aplicaciones y reinicia el ordenador.

NOTA: Pruebalo sin estar en el IDE Delphi.
 

Ademas de las formas que ya alguien menciono tambien hay otra forma, dede delphi puedes hacerlo asi:
winexec('c:\windows\rundll user.exe,ExitWindows',1);
claro que eso va en una sola linea.
Ten cuidado, no lo vayas a usar contra alguien.(je, je, je).