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 :roll: .

[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 :roll:

[turboPASCAL]

Delphi-Quellcode:

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 :lol:

Delphi-Quellcode:

program ScreenOff;

uses
  Windows,
  Messages;

{$R *.res}

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

[MasterC]

GetDesktopWindow()?

Also mit

Delphi-Quellcode:

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

funktioniert es wunderbar bei mir.

[turboPASCAL]

Zitat:

Zitat von Pr0g

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

Code:

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

:gruebel: 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.

[turboPASCAL]

Zitat:

Zitat von MasterC

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

Zitat:

Zitat von gsh

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

Zitat:

Zitat von faux

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

Habt ihr ein normalen Desktop oder irgend welche veränderte Sachen ?

Möglicher weise sollte man die Pause ( Sleep(100); ) vor dem Aufruf grösser machen so ca. auf 2000 ms, damit die Mausbewegungen abgefangen werden.

[Zacherl]

Bei mir funktioniert es auch nicht! (TFT: Samsung SyncMaster 171s)

Florian

[Assun]

Bei mir klappts.....hab keine Ahnung wie mein Monitor heisst.

Ist auf jedenfall nen Röhrenbildschirm, 19 Zoll

[Aenogym]

hi pr0g,

ich hab winXP home sp2, eine nvidia geforce mx 440 und einen acer AL1703 tft-monitor 17".
das programm tut bei mir auch rein garnix, wenn ich's ausführe. irgendwelche alternativen shells hab ich auch nicht, nur ein anderes windows-theme (über gepatchte uxtheme.dll).

aenogym

[Toenn]

bei mir klappts auf allen 2 tfts und laptop + 1 crt. wunderbar. das programm kann ich gut gebrauchen!

[n0b0dy]

also bei mir klappts mal und mal nicht. kA an was das liegen könnte.
aber brauchen tu ich es leider nicht. habe auf der tastatur ne standbytaste für die monitore ;)

[PierreB]

Zitat:

Zitat von Assun

Bei mir klappts.....hab keine Ahnung wie mein Monitor heisst.

Ist auf jedenfall nen Röhrenbildschirm, 19 Zoll

Bei mir geht es ebenfalls, einmal bei 17" W2k und auf 19" XP SP2.

[Ultimator]

Bei mir passiert gar nix..
Radeon 9800SE, HP Ultra VGA 1600 21" CRT, Win XP Prof. SP2

[MagicAndre1981]

Bei mir passiert auch nix.

Windows XP MCE 2005 + mobility Radeon 9700 + TFT-Bildschirm

André

[Pr0g]

Woran könnte es denn liegen, dass es bei recht ähnlichen Systemen bei dem einen geht und bei dem anderen nicht :roll: Ihr könnt es ja mal mit einem höheren Sleep Wert versuchen, Code hatte ich ja auf der ersten Seite schon gepostet...

[hanselmansel]

Der Monitor (FSC 19" TFT) wird wunderbar schwarz. Aber ich kann den PC treten wie ich will; zum Leben zurückerwecken kann ich ihn bei bestem Willen nicht.

[MagicAndre1981]

Zitat:

Zitat von MasterC

GetDesktopWindow()?

Also mit

Delphi-Quellcode:

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

funktioniert es wunderbar bei mir.

Damit geht es bei mir auch.

[Pr0g]

So, da ich mir heute auch das SP2 installiert habe und das Programm daraufhin nicht mehr funktionierte habe ich mir nochmal einen Tipp von turboPASCAL angesehen, den er mit geschickt hatte und eine neue Version rausgebracht, die auch unter SP2 funktioniert ;)

[Luckie]

Wäre nett, wenn ihr eure Tipps nicht im geheimen handeln würdet. Wenn das jeder machen würde, bräuchten wir kein Forum. :-?

[MagicAndre1981]

Zitat:

Zitat von Luckie

Wäre nett, wenn ihr eure Tipps nicht im geheimen handeln würdet. Wenn das jeder machen würde, bräuchten wir kein Forum. :-?

Wieso das denn Luckie, turboPASCAL und Nico haben doch alles erklärt ;-)

Hier ist der Link: http://www.delphipraxis.net/internal...=429840#429840

[Luckie]

Hm, wenn dem so ist, will ich nichts gesagt haben. Für mich klang das aber so, als ob dem nicht so wäre. Dann soll doch auch bitte hier die Lösung gepostet oder zumindest verlinkt werden.

[MisterNiceGuy]

@Prog: Kann es sein, dass du nicht die unterschiedlichen Windowsversionen berücksichtigst? Ich hab
mal genau so ein Programm geschrieben und zwar hier und ich glaub da hat es bei allen funktioniert :) Wenn du willst, schicke ich dir den Quelltext rüber.

MfG Jonas

[Pr0g]

Ich habe es für WinXP geschrieben (da eigenbedarf) und dort sollte es nun auch laufen. Könnt es ja nochmal testen. Bisher hat jedenfalls noch keiner gesagt, dass die neue Version bei ihm nicht laufen würde.

[PierreB]

Zitat:

Zitat von Pr0g

Ich habe es für WinXP geschrieben (da eigenbedarf) und dort sollte es nun auch laufen. Könnt es ja nochmal testen. Bisher hat jedenfalls noch keiner gesagt, dass die neue Version bei ihm nicht laufen würde.

Es geht problemlos.