Suspender e hibernar el pc

[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