Bildschirmschoner beenden aus Delphi-Anwendung

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

[zeras]

Zitat von Teekeks:

Zitat von Schwedenbitter:

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

Das ist mal absoluter Quatsch.
...
Einen praktischen Nutzen haben diese dort nicht.

Wenn man nicht noch bunte Bilder als Schoner nimmt, sondern komplett dunkel, dann spart man vielleicht noch ein wenig Energie. Auch die Elemente, die die Helligkeit erzeugen, unterliegen einer Alterung (kleine Leuchstoffröhren an den Seiten der Display oder auch LED's unterliegen der Alterung.

[mkinzler]

Dann wäre/ist das Abschalten des Bildschirms aber die bessere Alternative

[Schwedenbitter]

Zitat von mkinzler:

Dann wäre/ist das Abschalten des Bildschirms aber die bessere Alternative

Das stimmt. Aber die Mädels (meine Mitarbeiterinnen) finden es toll. Dazu gehört auch das wöchentliche Wechseln des Hintergrundbildes etc. pp.
Ich habe jetzt das hier übersetzt und es funktioniert im Grunde auch ganz gut. Aber vielleicht könnten die Profis hier mal drüberschauen, ob irgend welche groben Schnitzer drin sind. FastMM meldet jedenfalls keine memory leaks. Den vollständigen Code zum Test nebst Testprogramm habe ich als Anhang begefügt.

Delphi-Quellcode:

Procedure QuitScreenSaver;

  Function KillScreenSaverFunc(Wnd: HWnd; LParam: Word): Boolean;
  Begin
    If (IsWindowVisible(Wnd)) Then
        PostMessage(Wnd, WM_CLOSE, 0, 0);
    Result:=True;
  End;

Var
  hDesktop    : hDesk;
Begin
  hDesktop:=OpenDesktop('Screen-saver', 0, False,
      DESKTOP_READOBJECTS Or DESKTOP_WRITEOBJECTS);
  If (hDesktop <> 0) Then
  Begin
    EnumDesktopWindows(hDesktop, @KillScreenSaverFunc, 0);
    CloseDesktop(hDesktop);
  End
  Else  // <- Windows 2000 and later
    PostMessage(GetForeGroundWindow, WM_Close, 0, 0);
End;

Eine Sache gefällt mir allerdings noch nicht so ganz: Obwohl ich auf das Beenden des Bildschirmschoners warte, bekomme ich manchmal nur ein halbes oder verschwommenes Bild. Kann man das noch irgendwie eleganter/besser machen?

Gruß & Dank, Alex