Bildschirmschoner beenden aus Delphi-Anwendung

[turboPASCAL]

Moin,

ggf. hilft dir das: Bildschirmschoner unterdrücken

[Schwedenbitter]

Zitat von turboPASCAL:

ggf. hilft dir das: Bildschirmschoner unterdrücken

Leider nein. Trotzdem Danke.

Grundsätzlich soll der Bildschirmschoner ja laufen. Er soll meine "Bildschirme schonen", wie der Name schon sagt. Und da mein Programm ähnlich einem Service immer mitläuft, will ich daran nichts ändern. Ich möchte ihn weder ganz ausschalten, noch beim Start (TMessage.Result) unterdrücken.
Ich habe auch bei meinen Tests festgestellt, dass SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, nil, 0); einen einmal laufenden Bildschirmschoner eben nicht beendet. Wäre auch zu einfach und schön gewesen

Ich möchte ihn lediglich kurz unterbrechen. Meinetwegen auch beenden, da er nach Ablauf einer bestimmten Zeit ohnehin wieder startet. Die Idee mit dem WM_Close gefiel mir daher. Evtl. könnte man über die vom Systemgelieferte Start-Message auch das Handle merken und dann einfach das schließen?

Ist jemandem bekannt, ob bei Msg.wParam = SC_SCREENSAVE das Handle in einem der Record-Variablen mitgeliefert wird? Ich kann das schlecht ausprobieren, da spätestens bei meiner Interaktion der Schoner beendet wird, ich aber auch nicht wild irgend etwas schließen möchte.

Gruß, Alex

[Schwedenbitter]

Ich haber vermutlich hier (How to force a screen saver to close once started in Windows NT) etwas gefunden.

Ich werde das später mal ausprobieren. Habe im Moment leider keine Zeit.
Diese Darstellung bringt mich aber zurück zu meiner Frage: Wenn der ScreenSaver in einem separaten Desktop läuft, müsste es doch theoretisch möglich sein, einen Screenshot vom anderen Dekstop (also der den der Benutzer hat) zu machen, ohne den Screensaver überhaupt anfassen zu müssen. Oder sehe ich das falsch? Soll ich dazu ein neues Them aufmachen?

Gruß, Alex

[Teekeks]

Zitat von Schwedenbitter:

Er soll meine "Bildschirme schonen", wie der Name schon sagt.

Das ist mal absoluter Quatsch.
Zur Zeit der Röhren-Monitore waren die Bildschirmschoner dazu da, das sich kein Bild einbrennt.
Aber da ich jetzt mal davon ausgehe das du keinen Röhren-Monitor hast, dienen Bildschirmschoner nur der Zierde.
Einen praktischen Nutzen haben diese dort nicht.

[SirThornberry]

Eventuell hilft einfach den Mauscursor per Api-Funktion (setcursorpos) zu bewegen oder zum Beispiel einen Tastendruck zu simulieren um den Bildschirmschoner zu deaktivieren.

[Satty67]

Also ist ja ganz schnell getestet:

Delphi-Quellcode:

Windows.SetCursorPos(0,0);
Windows.SetCursorPos(200,200);

.
beendet unter Windows XP (No Admin) den laufenden Bildschirmschoner