RegisterPowerSettingNotification использование в Delphi

Question

Как использовать RegisterPowerSettingNotification в сочетании с GUID_MONITOR_POWER_ON в Delphi XE2?

Answer 1

Вы должны вызвать RegisterPowerSettingNotification с нужным идентификатором GUID Power Setting GUIDs для регистрирует заявку на получение уведомлений настройки мощности для конкретного события установки мощности, если больше не нужен вызов UnregisterPowerSettingNotification.

Дельфи пример может выглядеть следующим образом:

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls; 

const 
    GUID_MONITOR_POWER_ON: TGUID = '{02731015-4510-4526-99e6-e5a17ebd1aea}'; 

type 

    TForm1 = class(TForm) 
    Memo1: TMemo; 
    procedure FormCreate(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
    private 
    FHPOWERNOTIFY: THandle; 
    protected 
    procedure WM_POWERBROADCAST(var Msg: TMessage); message WM_POWERBROADCAST; 
    end; 

function RegisterPowerSettingNotification(hRecipient: THandle; 
    PowerSettingGuid: PGUID; Flags: DWORD): THandle; stdcall; 
external 'user32.dll'; 
function UnregisterPowerSettingNotification(Handle: THandle): BOOL; stdcall; 
external 'user32.dll'; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FHPOWERNOTIFY := RegisterPowerSettingNotification(Handle, 
    @GUID_MONITOR_POWER_ON, DEVICE_NOTIFY_WINDOW_HANDLE); 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
    UnregisterPowerSettingNotification(FHPOWERNOTIFY); 
end; 

procedure TForm1.WM_POWERBROADCAST(var Msg: TMessage); 
begin 
    if PPOWERBROADCAST_SETTING(Msg.LParam)^.Data[0] = 0 then 
    Memo1.Lines.Add('Off') 
    else 
    Memo1.Lines.Add('ON') 
end; 

end.