0

Gostaria de verificar o status do windows (suspenso/hibernando) antes de executar uma ação.

Exemplo

if suspenso=true then
   //executa algo

Desde já agradeço.

4

1 Resposta 1

2

Com base no comentário do @Guilherme-nascimento e este artigo da microsoft consegui montar um exemplo utilizando a mensagem WM_POWERBROADCAST , que é disparada no momento que o windows entra e suspensão. O retorno da mensagem na propriedade PowerEvt é o atual status, aonde PBT_APMSUSPEND representa que esta entrando em suspensão e PBT_APMRESUMEAUTOMATIC representa que esta saindo da suspensão:

  TForm1 = class(TForm)
  private
    fSuspenso: Boolean;
    procedure AlterouStatusDoWindows(var Msg: TWMPower); message WM_POWERBROADCAST;
  public
  end;

...
procedure TForm1.AlterouStatusDoWindows(var Msg: TWMPower);
begin
  case MSg.PowerEvt of
    PBT_APMSUSPEND: fSuspenso := True;
    PBT_APMRESUMEAUTOMATIC: fSuspenso := False;
  end;
end;

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .