Delphi - Apagar PC

Saludos,

Alguien tiene algun codigo o sabe como puedo hacer un programa q me permita apagar una PC con Win NT...

Gracias de antemano
Efren

Aqui esta el codigo:
function ShutDownWindows(Flag: word): Boolean;
var
TokenPriv: TTokenPrivileges;
H: DWord;
HToken: THandle;
begin
if Win32Platform = VER_PLATFORM_WIN32_NT then
begin
OpenProcessToken(GetCurrentProcess,
TOKEN_ADJUST_PRIVILEGES,HToken);
LookUpPrivilegeValue(NIL, 'SeShutdownPrivilege',
TokenPriv.Privileges[0].Luid);
TokenPriv.PrivilegeCount := 1;
TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
H := 0;
AdjustTokenPrivileges(HToken, FALSE,
TokenPriv, 0, PTokenPrivileges(NIL)^, H);
CloseHandle(HToken);
end;
Result := ExitWindowsEx(Flag, 0);
end;

Este es un truco tomado de http://www.q3.nu/trucomania/ftesp.html

Suerte Recibe saludo desde Mexico.

Mucho mas facil. Añade la siguiente linea. Es una funcion API de windows:

ExitWindowsEx (1,0);

Un saludo.