[TRUCO DELPHI] Apagar Windows.

[TRUCO DELPHI] Apagar Windows.

var
  tp    : TTokenPrivileges;
  Token : THandle;
begin
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
  tp.PrivilegeCount := 1;
  if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tp.Privileges[0].LUID) then
  begin
    tp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
    AdjustTokenPrivileges(Token, False, tp, 0, nil, nil);
  end;
  CloseHandle(Token);
  ExitWindowsEx(EWX_FORCEIFHUNG or EWX_SHUTDOWN, 0);
end.

Saludos!

Para el que le interese, he creado una unit con este mismo mecanismo pero simplificando su uso. Es mucho mas comodo disponer de una funcion WindowsPowerOff que usar tanto codigo
 

Tambien se dispone de una funcion para reiniciar y cerrar sesion

Unidad Win.Power
 

Edited by Agustin Ortu, 01 December 2016 - 03:53 PM.

Y los que deseen ver distintas aplicaciones de la API ExitWindowsEx pueden pasarse por este tema que inició enecumene en el que ya se trató el asunto.

Saludos.

Excelente, Simplificar es lo que buscamos..

Saludos!