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