Suspender e hibernar el pc

[jorgegetafe]

Se como apagar y reiniciar el pc, pero alguien me podria dar el codigo para hibernar y suspender el pc? no lo encuentro por los trucos... :-(

gracias.

[[enecumene]]

Hola jorgegetafe, intenta con esto:

Código Delphi [-]
SetSystemPowerState(FALSE,FALSE);

Saludos.

[jorgegetafe]

Empezado por enecumene

Hola jorgegetafe, intenta con esto:


Código Delphi [-]SetSystemPowerState(FALSE,FALSE);



Saludos.

No me hace nada el codigo cuando lo ejecuto :-(

[[enecumene]]

Hola, Que raro, en el uses tienes puesto la ShellApi?

Saludos.

[jorgegetafe]

Si, me pasa lo mismo tambien cuando quiero apagar la pantalla, que no hace nada.

[[enecumene]]

Que raro, porque lo acabo de probar y me funciona. prueba tratando de configurar la energia del monitor en las propiedades del escritorio en la paleta del protector de pantalla a ver, luego me comentas.

Saludos.

[jorgegetafe]

En opciones de energia tengo habilitado: "habilitar hibernacion" y en combinaciones de energia tengo: "escritorio u oficina" y aun asi no me hace nada el código cuando lo ejecuto.

[[Lepe]]

Igual no tienes permisos para ejecutar esas tareas, o tu proceso requiere permisos de administrador.

Me pasó al migrar un programa a XP.

Código Delphi [-]
function TFrmteclas.ShutDownWindows(Flag: Word): Boolean;
var
  TokenPriv: TTokenPrivileges;
  H:         DWord;
  HToken:    THandle;
begin

  Flag := EWX_POWEROFF; // EWX_REBOOT, ETC.

  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;

Para apagar el monitor basta con:

Código Delphi [-]
  Application.ProcessMessages;
  Sleep(150);
  PostMessage(Application.Handle , WM_SYSCOMMAND, SC_MONITORPOWER,1);

Ojo al Sleep. Se puede procesar el postMessage pero por el ciclo de mensajes, se puede activar de nuevo y aparentar que no hace nada la instrucción.

Saludos

[jorgegetafe]

Me salen algunos errores y no entiendo la función, me dice por ejemplo que la funcion necesita un resultado aunque se lo das mas abajo y algunas variables que no estan declaradas...

[[enecumene]]

Hombre lo tuyo esta complicado, el mismo codigo de lepe lo acabo de probar y no me tira errores, revisa el codigo bien si hay alguna laguna.

Saludos.

[jorgegetafe]

Copio y pego tal cual el codigo que me indicais, este es el resultado:

http://img514.imageshack.us/img514/8646/erroryd2.jpg

[[enecumene]]

Seguro tienes SHellApi en el Uses? si es asi y sigues con el problema vamos a esperar al Maestro Lepe a ver que te dice? digame una cosa que version de delphi usas?

Saludos.

[jorgegetafe]

Tengo delphi 7.0 y si, tengo ShellApi incluido en mi uses.

Pos tocara esperar, gracias.

[[Lepe]]

Hombre.... copiar y pegar... no sé yo.

Mi ventana se llama FrmTeclas, la tuya no sé.
Tendrás que declarar el prototipo de la función (o hacerla un procedimiento), es decir, declararla en:

Código Delphi [-]
class TForm23= class(TForm)

private
   function ShutDownWindows(Flag: Word): Boolean;
end;

Dentro de la función asigno el valor de "Flag", esa línea la puedes quitar, era solo de ejemplo para que vieses el valor que puede tomar.

Si acaso faltase algún "uses" podría ser "shlobj", pero si te dice Undeclared identifier, haces un clic sobre la palabra en cuestión en el editor de código fuente y pulsas F1 (el compilador no sabe donde está declarada, pero la ayuda de delphi si).

PD: Muy bueno el nombre de tu unidad ... "somnifero.pas" deja bien claro lo que hace dicha unidad .

Saludos

[jorgegetafe]

Gracias probaré lo que me has comentado.