apagar windows

[OSKR]

Si lo quisieras hacer desde còdigo puedes usar:

ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE,0);

[unko!]

intente lo ke dijiste lepe pero no funciono :S lo hice con un codigo para matar procesos sabiendo el nombre del exe

[unko!]

ExitWindowsEx(EWX_SHUTDOWN | EWX_FORCE,0);

el de SHUTDOWN no hace nada y el de FORCE cierra sesion

[[Lepe]]

Empezado por unko!

el de SHUTDOWN no hace nada y el de FORCE cierra sesion

en lugar de la barra | usa la palabra or

Saludos

[[Lepe]]

Hola a todos.

Antes de nada quiero pedir disculpas, mi respuesta sobre el Lsass.exe no es la más acertada, más cuando en este foro nunca se ha abogado por realizar prácticas politicamente incorrectas, por tanto, paso a describir la forma correcta de hacer lo que quieres.

OFFTOPIC: Para aquellos que se encuentren con el problema del lsass.exe, simplemente decir que, mientras se está mostrando la ventana de cierre, se puede retrasar la hora de windows en 2 horas, con eso, el cierre del sistema se retrasa y puede conseguirse en internet el parche correspondiente

En primer lugar necesitas una ventana para mostrar al usuario (simulando la de windows; dos labels, un boton y un Timer.

El proceso:
-----------
Antes de nada juega con las propiedades de la ventana BorderIcons y BorderStyle hasta encontrar la ventana que quieres.

Recuerda ejecutar el programa cada vez que cambies esas propiedades, ya que algunas opciones no se reflejan en el IDE de delphi mientras programas.

La ventana debería quedar:
- Sin posibilidad de cambiar el tamaño
- Sin botones de maximizar, minimizar ni cerrar.

En uno de los labels, simplemente pones el mensaje que desees: "El sistema se ha programado para apagarse, por favor, guarde todo su trabajo o se perderán los cambios."

El cierre del sistema:
----------------------

Necesitas una variable "Cuenta" para saber cuando llega a 1 minuto.
Al timer le pones un Intervalo de 1000 (1 segundo).
El código más o menos queda asï:

Código Delphi [-]
TCierra = class (Tform)
  private
     {private declarations}
    Cuenta :integer;
end;

tform1.button1click
begin
 cuenta := 59;
 timer1.enabled := true; // en diseño debe estar a false.
end;

Timer1Timer(....) // evento OnTimer del timer
begin
 Dec(cuenta) ; // equivalente a cuenta := cuenta -1;
 label2.caption := format('Restan %d segundos para apagar el sistema',[cuenta]);
 if cuenta = 0 then
 begin
  Timer1.enabled := false;
  ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE,0);
 end
end;

[unko!]

es hacer un "fake" de la ventana esa... oooorale.... nunka lo habria imaginado

[unko!]

encontre una forma de apagar windows con el sig 'code':

en Implementation

function ShutDownWindows(Flag: word): Boolean;
  //Función que permite apagar la computadora
  var
    TokenPriv: TTokenPrivileges;
    H: DWord;
    HToken: THandle;
  begin
    if Win32Platform = VER_PLATFORM_WIN32_NT 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;
 	   H := 0;
 	   AdjustTokenPrivileges(HToken, FALSE,
 		  TokenPriv, 0, PTokenPrivileges(NIL)^, H);
 	   CloseHandle(HToken);
 	 end;
    Result := ExitWindowsEx(Flag, 0);
 end;

y en un boton:

ShutDownWindows(EWX_POWEROFF);

ahora, el problema es el siguiente... mientras estoi programando si funciona este code, le doy a la flechita verda (para visualizar el programa) y si, efectivamente se apaga, pero al momento de compilarlo y ejecutar el exe no me funciona... ke puedo hacer?


thanx, salu2... PD---> como se llama la flecita verde' ??