Определить состояние питания монитора

[KWN, lnc]

function GetDevicePowerState(hDevice:DWORD;var pfOn:BOOL):BOOL; stdcall; external kernel32;


procedure TForm1.FormCreate(Sender: TObject);
var
State : LongBool;
begin
  GetDevicePowerState(Monitor.Handle , State);
  if State then
    ShowMessage('Вкл')
  else
    ShowMessage('Выкл')
end;

говорят можно через

GetMonitorInfo

но я так и не понял как.

помогите определить выключен или нет.?