Fórum Desligar o programa com o pc!!! #230991

function WinExit(flags: integer): boolean;
  function SetPrivilege(privilegeName: string; enable: boolean): boolean;
  var 
    tpPrev, tp : TTokenPrivileges;
    token : THandle;
    dwRetLen : DWord;
  begin
    result := False;
    OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, token);
    tp.PrivilegeCount := 1;
    if LookupPrivilegeValue(nil, pchar(privilegeName), tp.Privileges[0].LUID) then
    begin
      if enable then
        tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
      else
      tp.Privileges[0].Attributes := 0;
      dwRetLen := 0;
      result := AdjustTokenPrivileges(token, False, tp, SizeOf(tpPrev), tpPrev, dwRetLen);
    end;
    CloseHandle(token);
  end;
begin
  if SetPrivilege(´SeShutdownPrivilege´, true) then 
  begin
    ExitWindowsEx(flags, 0);
    SetPrivilege(´SeShutdownPrivilege´, False)
  end;
end;

function ExitWindowsEx(uFlags : integer; // shutdown operation
dwReserved : word) : boolean; // reserved
external ´user32.dll´ name ´ExitWindowsEx´;
procedure Tchau;
const
  EWX_LOGOFF = 0; // Dá "logoff" no usuário atual
  EWX_SHUTDOWN = 1; // "Shutdown" padrão do sistema
  EWX_REBOOT = 2; // Dá "reboot" no equipamento
  EWX_FORCE = 4; // Força o término dos processos
  EWX_POWEROFF = 8; // Desliga o equipamento
begin
  ExitWindowsEx(EWX_FORCE, 0);
end;