ScreenOff - Monitor mit zwei Klicks im Standby

[Pr0g]

Hallo,

da ich meinen Rechner in letzter Zeit öfters mal bei längerer Abwesenheit anlasse und eventuell auch Nachts, habe ich ein kleines Tool geschrieben, welches den Mointor in den StandBy Modus schaltet. Nichts besonderes, ich weiß - aber nützlich wenn man es brauchen kann. Das Programm einfach starten, dann wird der Monitor direkt in den StandBy Modus gefahren und das Programm beendet sich. Ums Wiedereinschalten kümmert sich Windows automatisch. Nach dem Programmstart wartet das Tool noch kurz 100 Millisekunden, da es sonst passieren könnte, dass Windows sofort zurückschaltet. Ich habe es unter WinXP getestet, könnt ja mal sagen wie es mit anderen Systemen läuft...

http://pr0g.net/gfx/dload/d73.jpeg

MfG Pr0g

[MasterC]

Hi,

hört sich interessant an, funktioniert aber leider nicht bei mir. Beim Start des Programmes passiert gar nichts.

Habe einen TFT Monitor (BenQ FP71E+), liegt das vielleicht daran?

MfG

[gsh]

Also ich weiss nicht hab einen WinXp SP2 Prof. Rechner mit einer Radeon 9600 SE aber des Programm tut absolut gar nichts .

[Pr0g]

Wie es mit nem TFT aussieht weiß ich net, könnte ich heute Mittag mal testen. Aber bei meinem Siemens-Nixdorf Monitor und der Radeon 9800 (Pro) klappts einwandfrei

[turboPASCAL]

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1); Standby für den Monitor.

Zum einschalten langsam die Maus 1,4 cm nach links bewegen...

[Pr0g]

Ich nutze den gleichen Code, nur dass ich nix 1.4 cm zum Einschalten bewegen muss

Delphi-Quellcode:

program ScreenOff;

uses
  Windows,
  Messages;

{$R *.res}

begin
  Sleep(100);
  SendMessage(GetDesktopWindow() , WM_SYSCOMMAND, SC_MONITORPOWER, 1);
end.

[MasterC]

GetDesktopWindow()?

Also mit

SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1); funktioniert es wunderbar bei mir.

[turboPASCAL]

Zitat von Pr0g:

Ich nutze den gleichen Code, nur dass ich nix 1.4 cm zum Einschalten bewegen muss

Code:

[b][...][/b]
[b]begin[/b]
  Sleep(100);
  SendMessage([color=#ff0000]GetDesktopWindow()[/color] , WM_SYSCOMMAND, SC_MONITORPOWER, 1);
[b]end[/b].

Das sollte es auch tun wenn GetDesktopWindow etwas vernünftiges zurück gibt.

[faux]

Zu allem Überfluss möchte ich sagen, dass es bei meinem Fujitsu Siemens S7 TFT ebenfalls nicht geht...

Faux

[ManuMF]

Nvidia Geforce 4 MX 440 / Fujitsu-Siemens C-17-5 (TFT) / WinXP und funktioniert.