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

**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 von MasterC:

GetDesktopWindow()?

Also mit

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

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.

Themen-Optionen	Thema durchsuchen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen	Thema durchsuchen: Erweiterte Suche
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

hanselmansel Delphi 2009 Enterprise	#21 18. Sep 2005, 12:00 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.
	Zitat

MagicAndre1981 Delphi 7 Enterprise	#22 18. Sep 2005, 12:01 Zitat von MasterC: GetDesktopWindow()? Also mit SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1); funktioniert es wunderbar bei mir. Damit geht es bei mir auch. André
	Zitat

Pr0g Delphi 7 Personal	#23 24. Sep 2005, 00:04 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
	Zitat

Luckie Delphi 2006 Professional	#24 24. Sep 2005, 00:40 Wäre nett, wenn ihr eure Tipps nicht im geheimen handeln würdet. Wenn das jeder machen würde, bräuchten wir kein Forum. Michael
	Zitat

MagicAndre1981 Delphi 7 Enterprise	#25 24. Sep 2005, 00:50 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 André
	Zitat

Luckie Delphi 2006 Professional	#26 24. Sep 2005, 00:52 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. Michael
	Zitat

MisterNiceGuy Delphi 7 Personal	#27 24. Sep 2005, 01:27 @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 Jonas
	Zitat

Pr0g Delphi 7 Personal	#28 25. Sep 2005, 13:32 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.
	Zitat

PierreB	#29 25. Sep 2005, 13:52 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.
	Zitat

ScreenOff - Monitor mit zwei Klicks im Standby

Forumregeln