[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

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

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.

:hi:

[n0b0dy]

also bei mir funzt Variante 2 und 3. Variante 1 nicht.
habe XP Pro SP2 mit einem FujtisuSiemens X17-2

Variante 4 find ich noch am besten :D :thumb:

[Sergej]

Also bei mir funktioniert nur Variante 2. Habe WinXP Prof SP2 und Medion MD30219PH@Sapphire Radeon 9800pro

Greetz Sergej

[MagicAndre1981]

Zitat:

Zitat von Sergej

Also bei mir funktioniert nur Variante 2.

Bei funzzt auch nur die Variante 2.

[x000x]

Moin moin,

bei mir ebenfalls nur die Variante 2. (WinXP Prof. SP2)

[DP-Maintenance]

Dieses Thema wurde von "alcaeus" von "Sonstige Fragen zu Delphi" nach "Freeware" verschoben.
Die Freeware-Sparte ist auch fuer Tests offen ;)

[Dust Signs]

Var. 2 (XP+SP2)

Dust Signs

PS. Wozu ist der Button ganz unten :mrgreen:

[EDatabaseError]

V1, V2, V4

Win XP Prof. SP1

[faux]

Bei mir geht nur der 2. Button:
TFT Fujitsu Siemens S7 - Windows XP MCE SP2

[MasterC]

Nur Variante 2 funktioniert. Nettes Extra Feature. :)

[faux]

Könntest du mal die drei Möglichkeiten posten? Den SOurce meine ich.

[EDatabaseError]

ja wäre cool.

[turboPASCAL]

Ein Moderator hat folgendes geschrieben:

Dieses Thema wurde von "alcaeus" von "Sonstige Fragen zu Delphi" nach "Freeware" verschoben.
Die Freeware-Sparte ist auch fuer Tests offen ;)

:gruebel: OK, merk ich mir. :wink:

Zitat:

Könntest du mal die drei Möglichkeiten posten? Den Source meine ich.

Nein, noch nicht. Erst will ich eure Ergebnisse! :wink:

[faux]

Zitat:

Zitat von turboPASCAL

Nein, noch nicht. Erst will ich eure Ergebnisse! :wink:

Dann fragen wir mal anders rum:
Bei wem funktioniert Möglichkeit 2 nicht?

[Zacherl]

So ... Hallo TorboPASCAL,

bei mir funktioniert ausschließlich die 2. Version.

Florian

[atreju2oo0]

Zitat:

Zitat von Florian Bernd

So ... Hallo TorboPASCAL,

bei mir funktioniert ausschließlich die 2. Version.

Florian

Da schließe ich mich an!
;o)

[Neotracer64]

Boah, hab mir fasst in die Hose gepisst bei "Diesen Button nicht benutzen" :lol:

Es klappt jedoch auch nur Variante 2 bei mir.

XP Home + SP2
Radeon X-800 XT

[turboPASCAL]

Kleines Update (einen Mini Bug behoben)

Danke für Eure Hilfe, weitere Ergebnisse wären nett.

( auch Mods dürfen mitmachen ;) )

[mirage228]

Hi,

bei mir funktioniert auch nur die Variante 2.

Ich habe einen LG Flatron F700P Monitor (17") auf einer Creative Labs 3D Blaster Ti4400 (GeForce 4 Ti 4400 Chipsatz).

mfG
mirage228

[NicoDE]

nVidia Quadro NVS 285, Samsung SyncMaster 191n
(winxp sp2 retail)

1: keine Reaktion
2: funzt
3: keine Reaktion
4: grins

Gruß Nico

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

Zitat von Kroko1999

V1 V2 gehen V3 nicht
W2k SP4 ...

Dem schließe ich mich an. :)

PS: Bin sehr am Code interessiert. :zwinker:

MfG
freak

[NicoDE]

Zitat:

Zitat von freak4fun

Bin sehr am Code interessiert. :zwinker:

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

Bye

[NicoDE]

Zitat:

Zitat von Kedariodakon

Hmm bei mir kommt nichtmal eine Form mit Buttons

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

[turboPASCAL]

Zitat:

Zitat von Kedariodakon

Hmm bei mir kommt nichtmal eine Form mit Buttons :gruebel:

Bye

Was, welche, wo ?

[Garby]

Variante 1 + 2 funktionieren

Dell Latitude D800

[Kedariodakon]

Zitat:

Zitat von NicoDE

Zitat:

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

[faux]

1. geht bei mir nicht, ich hab StyleXP.

[turboPASCAL]

Zitat:

Zitat von Kedariodakon

Zitat:

Zitat von NicoDE

Zitat:

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üsste

Delphi-Quellcode:

SendMessage(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:

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

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Freeware" nach "Open-Source" verschoben.
Auf Wunsch des Autors nach OpenSource verschoben.
(nein Du bekommst keine MOD-Rechte ;-) )

[turboPASCAL]

@Sharky Nein, bekomme ich nicht ? :? Noch nicht ! :wink:

Zitat:

Zitat von Kedariodakon

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

Zitat:

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. :hi: ***

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

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

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