3 respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Apagar Windows.

delphi

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!

[Agustin Ortu]

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
 

Editado por Agustin Ortu, 01 diciembre 2016 - 03:53 .

[escafandra]

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.

[sir.dev.a.lot]

Excelente, Simplificar es lo que buscamos..

 

Saludos!