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

[faux]

1. geht bei mir nicht, ich hab StyleXP.

[turboPASCAL]

Zitat von 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

Habe mal eine neue Version hochgeladen, bitte teile mir mit ob der Fehler immernoch da ist.

Hast du eine andere Taskbar oder 2 Monitore ?

[NicoDE]

Damit der erste Button unter Windows XP (sp2) auch funktioniert, müssteSendMessage(GetDesktopWindow(), WM_SYSCOMMAND, SC_MONITORPOWER, 1); in

Delphi-Quellcode:

SendMessage(FindWindow('Progman', 'Program Manager'),
  WM_SYSCOMMAND, SC_MONITORPOWER, 1);

geändert werden.

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

[Kedariodakon]

Knopf1: geht nicht (Das Windowshandle vom Desktop ist: 65556)
Knopf2: geht
Knopf3: geht nicht

Zitat von turboPASCAL:

Habe mal eine neue Version hochgeladen, bitte teile mir mit ob der Fehler immernoch da ist.
Hast du eine andere Taskbar oder 2 Monitore ?

Normal WindowsXP SP2, ein Monitor (1600 x 1200) Taskleiste Links...

Bye

[turboPASCAL]

@Sharky Nein, bekomme ich nicht ? Noch nicht !

Zitat von Kedariodakon:

Knopf1: geht nicht (Das Windowshandle vom Desktop ist: 65556)
Knopf2: geht
Knopf3: geht nicht

Zitat von turboPASCAL:

Habe mal eine neue Version hochgeladen, bitte teile mir mit ob der Fehler immernoch da ist.
Hast du eine andere Taskbar oder 2 Monitore ?

Normal WindowsXP SP2, ein Monitor (1600 x 1200) Taskleiste Links...

Bye

Ja. Sorry ich hatte eine neue Version hochgeladen bei der noch was ausgeklammert war.

*** Now is Open Source. Thx @All. ***

[MiniKeks]

Was macht denn der Knopf, den man nicht benutzen darf?

Schaltet das mein monitor ganz schnell ein und wieder aus?

[turboPASCAL]

Sag ich nich.

[faux]

Frage:

Wieso muss man vor den Befehl immer ein Sleep(1000) machen? Bei mir gehts auch ohne...

[turboPASCAL]

Code:

[b][...][/b]
        [color=darkblue]// Warten um unabsichtliche Mausbewegungen abzufangen[/color]
        Sleep(1000);
        [color=darkblue]// Standby aufrufen[/color]
        SendMessage(FindWindow('Progman', 'Program Manager'),
          WM_SYSCOMMAND, SC_MONITORPOWER, 1);
[b][...][/b]

Zitat von faux:

Bei mir gehts auch ohne...

Bei mir auch, aber ich darf die Maus beim loslassen nicht mehr bewegen (leichtes verwackeln) sonst ist es mit dem Standby pfutsch. Ist halt nur zur Sicherheit.