¿Tiempo de suspensión de Windows?
 

Buenos días,

¿Tengo alguna manera de controlar el tiempo que ha estado suspendido un ordenador?

Muchas gracias y un saludo

David Sañudo

Hola.

No se puede controlar el tiempo transcurrido, pero la función API CallNtPowerInformation te permitirá conocerlo.

Ejemplo:

Código Delphi [-]
...
implementation

function CallNtPowerInformation(InformationLevel: DWORD; InPutBuffer: Pointer;
  InputBufferSize: ULONG; OutPutBuffer: Pointer;
  OutPutBufferSize: ULONG): DWORD; stdcall; external 'PowrProf.dll';

const
  LastWakeTime  = 14;
  LastSleepTime = 15;
  STATUS_BUFFER_TOO_SMALL = $C0000023;
  STATUS_ACCESS_DENIED    = $C0000022;

procedure TForm1.Button1Click(Sender: TObject);
  procedure CheckError(const Error: DWORD);
  begin
    if Error = STATUS_BUFFER_TOO_SMALL then
      raise Exception.Create('Buffer muy chico para contener la entrada.');
    if Error = STATUS_ACCESS_DENIED then
      raise Exception.Create('Acceso denegado');
  end;

var
  Lst, Lwt  : Int64;   // unidad 100 nanosegundos.
  Err  : DWORD;
begin
  Err := CallNtPowerInformation(LastWakeTime, nil, 0, @Lwt, SizeOf(Lwt));
  CheckError(Err);

  Err := CallNtPowerInformation(LastSleepTime, nil, 0, @Lst, SizeOf(Lst));
  CheckError(Err);

  ShowMessageFmt('%d nanosegundos.',[Round(Lwt/100) - Round(Lst/100)]);
end;

Saludos :)

Hola a todos,

Otra estupenda respuesta del compañero ecfisa. ¡Hasta en nanosegundos! :D :)

Es un crack|un monstruo|un #1 ^\||/^\||/^\||/

Muchas gracias por la respuesta
 

Muchas gracias, lo pruebo para ver si me sirve

Un saludo a todos