[Fun/Tool] Monitor in den Standby + Funny Button

[turboPASCAL]

Ausgehend von diesem Thema ScreenOff - Monitor mit zwei Klicks im Standby von Pr0g hab ich mal ein Testprogramm geschrieben mit zwei verschiedenen Versionen den Monitor in das/den Standby zu bewegen.

Ich habe deshalb diese bitte, weil bei einigen Usern das Programm von "Pr0g" den Monitor nicht in den Standby schalten will.
Gelöst. Thx an NicoDE

Das ist kein Konkurrenz-Programm zu dem von Pr0g.

Da es ab WinXP SP 2 mit

Code:

SendMessage([color=red]GetDesktopWindow()[/color], WM_SYSCOMMAND, SC_MONITORPOWER, 1);

nicht mehr funktioniert das korrekte Handle des Desktops herauszufinden sollte man

Code:

SendMessage([color=red]FindWindow([/color][color=darkblue]'Progman'[/color], [color=darkblue]'Program Manager'[/color][color=red])[/color], WM_SYSCOMMAND, SC_MONITORPOWER, 1);

verwenden.

Zitat von NicoDE:

Grund: das '#32769'-Desktop-Fenster (csrss), reagiert nicht (mehr) auf die Nachricht - das 'Progman'-Desktop-Fenster (shell-explorer) reagiert allerdings wie erwartet...

Das ist aber eigentlich nur für nicht VCL-Anwendungen (nonVCL) interessant.

[NicoDE]

ATI Mobility Radeon 9700, built-in LCD
(winxp sp2 debug)

1: keine Reaktion
2: funzt
3: keine Reaktion
4: nicht mutig genug

[Kroko1999]

V1 V2 gehen V3 nicht
W2k SP4 Rage Fury Pro und Matrox Mystic

[freak4fun]

Zitat von Kroko1999:

V1 V2 gehen V3 nicht
W2k SP4 ...

Dem schließe ich mich an.

PS: Bin sehr am Code interessiert.

MfG
freak

[NicoDE]

Zitat von freak4fun:

Bin sehr am Code interessiert.

Steht doch im anderen Thread...

Schätze mal:
1: Sleep(1000); SendMessage(GetDesktopWindow(), WM_SYSCOMMAND, SC_MONITORPOWER, 1);
2: Sleep(1000); SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 1);
3: Sleep(1000); SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

[Kedariodakon]

Hmm bei mir kommt nichtmal eine Form mit Buttons

Bye

[NicoDE]

Zitat von Kedariodakon:

Hmm bei mir kommt nichtmal eine Form mit Buttons

Versuch's mit [Alt+Leertaste] -> Verschieben.

[turboPASCAL]

Zitat von Kedariodakon:

Hmm bei mir kommt nichtmal eine Form mit Buttons

Bye

Was, welche, wo ?

[Garby]

Variante 1 + 2 funktionieren

Dell Latitude D800

[Kedariodakon]

Zitat von NicoDE:

Zitat von Kedariodakon:

Hmm bei mir kommt nichtmal eine Form mit Buttons

Versuch's mit [Alt+Leertaste] -> Verschieben.

Danke, ging =)
Irgendwie war das Fenster ganz rechts oben auserhalb des Monitors, oder besser ist es immer, wenn ich es starte...

BTW: Nur Button Nr. 2 läuft...

Bye

[MichaelP]

Bei mir funktioniert Variante 1 und 2. Bei 3 keinerlei Reaktion.

W2K pro mit 2 Bildschirmlösung;

Gruß

Michael