Skærmens status (tændt, slukket osv.)

Hvad får dig til at tro den ikke opdaterer real time ?

Stoney

Har testet det, og har også spurgt forfatteren af det WMI komponent som jeg brugte.

"Am I doing something wrong, or is WMI values just not updated real time !?

That's correct, WMI is implemented this way.
Win32_DesktopMonitor.Availability property is inherited from
CIM_LogicalDevice class. That class is not smart enough
to update its properties when hardware device changes.

Some descendants of CIM_LogicalDevice may override this, but
it looks like Win32_DesktopMonitor gets its properties at
operating system boot time."

hhhmmm. Kan man ikke lavet noget "omvendt" af nedenstående. Altså så man læser værdien i stedet for at sætte den.

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 2);

Ovenstående sætter skærmen i standby.

Er blevet foreslået nedenstående, men begge giver altid "Monitor standby" ligemeget hvad.

procedure TForm1.Timer1Timer(Sender: TObject);
  var stdby: boolean;
begin
  SystemParametersInfo(SPI_GETPOWEROFFACTIVE, 0, @stdby, 0);
  if stdby then
    ListBox1.Items.Add(TimeToStr(Now) + ' Monitor standby')
  else
    ListBox1.Items.Add(TimeToStr(Now) + ' Monitor not standby');

  SystemParametersInfo(SPI_GETLOWPOWERACTIVE, 0, @stdby, 0);
  if stdby then
    ListBox2.Items.Add(TimeToStr(Now) + ' Monitor standby')
  else
    ListBox2.Items.Add(TimeToStr(Now) + ' Monitor not standby');
end;

Du kan evt. udelade screensaver delen af nedenstående.
Af en aller anden grund registrerer den det 2 gange

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)+ ': Skærm i powersafe')
  end; {if}
  inherited; // let the message thru'
end; {WMSysCommand}


end.

Stoney

stoney: Kanon. Det ser umiddelbart ud til at virke :)

Men hvordan finder jeg så ud af om den er gået ud af powersafe igen!?

Lav en boolean variable selv og check på denne måde
ved at sætte den true/false

Stoney

Ja, men der kommer jo ikke nogen "event" når den går ud af powersafe mode!?

ok, jeg roder lige lidt videre med det.

Stoney

Mange tak :)

Men en "quick and dirty" løsning kunne vel være at lave en global mouse/keyboard hook, for man må vel gå ud fra at skærmen altid går ud at powersafe hvis man bevæger musen eller trykker på en tast !?

Men det bedste er nok hvis du kan få fat i en event ligesom når den går i powersafe.

stoney: Har du fundet ud af noget mere? :)

Under alle omstændigheder må du gerne lave et svar, for jeg kan godt bruge din kode fra din indlæg 04/08-2004 17:18:03

Nej, jeg er ikke kommet videre.
Jeg har prøvet med boolean variabler uden succes.
Jeg har søgt hele nettet igennem uden success (faktisk tror jeg hele nettet ligger
cached på min PC nu) :-)
Alle påstår hårdnakket at det er PC'ens APM (advanced power manegement) der styrer om skærmen skal være on/off

Stoney

OK. Så må jeg få lavet en global mus/keyboard hook som kan nulstille min "powersave" variabel hvis den er sat :)

Tak for hjælpen.