Como desligar o Windows 2000 via programação ?

{===============================================================================
Retorna se o OS é de Plataforma NT
===============================================================================}
function WinNT : Boolean;
begin if Win32Platform = VER_PLATFORM_WIN32_NT then
Result := True
else Result := False;
end;
{==============================================================================}


{===============================================================================
ShutDownWindows, 0 - Desliga Rapido, 1 - Desliga, 2 - Reinicia, 3 - LogOff, 4 - Force
===============================================================================}
function ShutDownWindows(Flag: Word) : Boolean;
var
TokenPriv : TTokenPrivileges;
Tamanho : DWord;
HToken : THandle;
begin
Case Flag of
0 : Flag := EWX_FORCE + EWX_POWEROFF;
1 : Flag := EWX_SHUTDOWN;
2 : Flag := EWX_REBOOT;
3 : Flag := EWX_LOGOFF;
4 : Flag := EWX_FORCE;
end;

if WinNT 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;
Tamanho := 0;
AdjustTokenPrivileges(HToken, FALSE, TokenPriv, 0, PTokenPrivileges(NIL)^, Tamanho);
CloseHandle(HToken);
end;
Result := ExitWindowsEx(Flag, 0);
end;
{==============================================================================}