quer desligar windows nt/xp/2000?? use este código...

seguinte o programa abaixo desliga qualquer versão do windows
como muita gente já perguntou isso no fórum estou disponibilizando.
detalhe faço novamente, pq o assunto que coloquei da primeira vez não ajudou muito

****
program Halt;

{$APPTYPE CONSOLE}

uses
Windows;

var
hToken: THandle;
Privilegios: TOKEN_PRIVILEGES;
Zero: DWord;
Opcao: Char;

begin
Writeln(´**********************************************************************´);
Writeln(´´);
Writeln(´ Halt para Windows NT/2000/XP ´);
Writeln(´´);
Writeln(´ Escrito por Diovan Luidi De Pin (navoid@navoid.com) ´);
Writeln(´´);
Writeln(´**********************************************************************´);
Writeln(´´);

OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES, hToken);
LookupPrivilegeValue(nil, ´SeShutdownPrivilege´, Privilegios.Privileges[0].Luid);

Privilegios.PrivilegeCount := 1;
Privilegios.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

Zero := 0;

AdjustTokenPrivileges(hToken, False, Privilegios, Zero, nil, Zero);

Writeln(´Selecione: 1-Desligar, 2-Reiniciar, 3-Efetuar logoff´);
Readln(Opcao);
Writeln(´´);

case Opcao of
´1´: begin
Writeln(´Desligando Windows´);
ExitWindowsEx(EWX_FORCE+EWX_SHUTDOWN, 0);
end;
´2´: begin
Writeln(´Reiniciando Windows´);
ExitWindowsEx(EWX_FORCE+EWX_REBOOT, 0);
end;
´3´: begin
Writeln(´Efetuando logoff´);
ExitWindowsEx(EWX_FORCE+EWX_LOGOFF, 0);
end;
end;

while True do;
end.
****

até