apagar windows

[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' ??

[jachguate]

Empezado por unko!

como se llama la flecita verde' ??

se llama RUN, en castellano, Ejecutar. También podes iniciar la acción con la tecla F9.

Saludos.

[[Lepe]]

Hola unko!, puedo asegurarte que ese codigo funciona perfectamente, ya que lo uso diariamente para apagar/reiniciar mi equipo, de hecho ni siquiera uso un boton, sino que registro en windows las combinaciones de teclas CTRL+F10 para reiniciar y CTRL + F11 para apagar. Da igual el programa que esté usando en ese momento, al pulsar dichas teclas, apagando que es gerundio.

El problema es que al decir "apagar windows" insconcientemente se viene a la mente el ExitWindows, sin caer en la cuenta de que en windows 2000 y XP se necesitan tareas adicionales. Esto se podría haber evitado concretando el sistema operativo desde el primer Mensaje, no crees?

Por cierto, no es buena idea apagar siempre forzando, basta que se te olvide guardar un archivo, para perder los cambios. Es mejor proveer 2 o 4 botones para cada opción por separado.

Un saludo

[unko!]

entonces como le puedo hacer? seria bueno implementar un label que mande muchos mensajes de apagar windows?

[[Lepe]]

Por si acaso no lo dejé claro, me repito:

Empezado por Lepe

Hola unko!, puedo asegurarte que ese codigo funciona perfectamente

Si no se apaga el equipo, es que algun programa deniega el apagado, revisa todo lo que tienes junto al reloj, y procesos ocultos.

Un saludo

[unko!]

no tengo nada fuera de lo normal... solo tengo el antivirus y si acaso el MSN... nada fuera de lo normal en procesos... no hay algun metodo para ke se apague al golpe, asi sin terminar procesos, a lo bruto, si me explico?

[[Lepe]]

ShutDownWindow(EWX_SHUTDOWN or EWX_FORCE)

Prueba forzando, si el sistema se apaga, es que algun programa está denegando el servicio. (como ya te dije, no es bueno apagar forzando siempre).

Un saludo