?
Solved

Get monitor state

Posted on 2004-10-08
10
Medium Priority
?
621 Views
Last Modified: 2010-04-05
Hello.

Is it possible to get the state of the monitor (turned on/off, standby)? If so, how do I do it?

The WMI (Windows Management Instrumentation) Win32_DesktopMonitor class (http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_desktopmonitor.asp) contains the information I need (Availability), but the Win32_DesktopMonitor class does not update real time.

Are there any other way to get this information?

Thanks in advance.

/Snebal
0
Comment
Question by:Michael G
8 Comments
 
LVL 12

Expert Comment

by:Ivanov_G
ID: 12266053
You can handle WM_SYSCOMMAND. When monitor is being turned on/off the wParams is SC_MONITORPOWER      ...
0
 

Author Comment

by:Michael G
ID: 12269569
Thank you for your comment.

I have the following code which can tell me when powersafe gets activated, but it doesn't react if I turn off my monitor !?

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;

  private
  protected
    procedure WMSysCommand(var Message : TWMSysCommand ); Message WM_SYSCOMMAND;
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMSysCommand(var Message : TWMSysCommand);
// Intercept screen saver or power monitor message and do something ...
begin
  if (Message.CmdType and $FFF0 = SC_SCREENSAVE) or
     (Message.CmdType and $FFF0 = SC_MONITORPOWER) then
   begin
     memo1.Lines.Add(datetimetostr(now)+ ': Powersafe activated or monitor power off')
  end;
  inherited; // let the message thru'
end; {WMSysCommand}

end.
0
 
LVL 12

Expert Comment

by:Ivanov_G
ID: 12270926
Yep, I know about this. I couldn't make it work with monitor turned off...
0
Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

 

Author Comment

by:Michael G
ID: 12271123
So it's not possible to detect if you turn off your monitor !?
0
 
LVL 17

Expert Comment

by:Wim ten Brink
ID: 12271996
Maybe some smarter monitors will signal the system that the monitor is turned off, but afaik, this is extremely uncommon. Many laptops will keep track of the monitor state of the LCD screen but I don't think this information is sent to the system. It's just used to turn off the monitor when you close the lid of the laptop.
0
 

Author Comment

by:Michael G
ID: 12865770
I never really solved the problem, but found a more or less working workaround.

I use a WMSysCommand, see below, to detect if powersave is activated, and then I use a global keyboard/mouse hook to detect user input that takes the monitor out of powersaving.

procedure TForm1.WMSysCommand(var Message : TWMSysCommand);
// Intercept screen saver or power monitor message and do something ...
begin
  if  (Message.CmdType and $FFF0 = SC_SCREENSAVE) or(Message.CmdType and
$FFF0 = SC_MONITORPOWER) then begin

    memo1.Lines.Add(datetimetostr(now)+ ': powersave')
  end; {if}
  inherited; // let the message thru'
end; {WMSysCommand}
0
 

Author Comment

by:Michael G
ID: 13343683
0
 

Accepted Solution

by:
OzzMod earned 0 total points
ID: 13369542
Closed, 500 points refunded.
OzzMod
Community Support Moderator (Graveyard shift)
0

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
Free Data Recovery software is an advanced solution from Kernel Tools to recover data and files such as documents, emails, database, media and pictures, etc. It supports recovery from physical & logical drive after a hard disk crash, accidental/inte…
If you are looking for an automated tool which can generate reports for Outlook emails and other items from PST file, then you can go for Kernel PST Reporter tool. The reports which are created by this tool are helpful to analyze and understand PST …

569 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question