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.
Stack Overflow em Português é um site de perguntas e respostas para programadores profissionais e entusiastas. Leva apenas um minuto para se inscrever.
Inscreva-se para participar desta comunidadeCom 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;
PowerSettingRegisterNotification
(lib Powrprof), ela executa um callback quando as configurações de energia são modificadas (creio que vá ter que combinar com getdevicepowerstate), ou então a função que parece ser propria para istoRegisterSuspendResumeNotification