Einzelnen Beitrag anzeigen

RaSoWa1

Registriert seit: 1. Jun 2006
Ort: Halle/Saale
140 Beiträge
 
Delphi 2010 Professional
 
#1

ScreenSaver Preview-Modus beenden. Wie?

  Alt 28. Nov 2006, 07:47
Hallo,

ich habe nun doch ein Problem mit meinen Bildschirmschoner.

Wie kann ich im Preview-Modus (Aufruf mit Paramter /P) erkennen, wann das Programm zu beenden ist?
Google hat nicht wirklich geholfen. Das dort gefundene Beispiel funktioniert nur, wenn das Fenster der Systemsteuerung "Eigenschaften von Anzeige" geschlossen wird.
<pre>
var DC : HDC;
begin
DC := GetDC(DispHWND);
if DC = 0
then begin
StopFlg := True;
Application.Terminate;
end;
...
end;
</pre>
Wird aber ein anderer Bildschirmschoner ausgewählt, liefert GetDC nicht 0 und mein Schoner wird nicht beendet.
Ich vermute Windows sendet eine Message. Aber welche?
Bestimmt kennt sich da jemand aus.
Ihr habt jetzt Zeit, denn ich komme erst am Mittwoch wieder an meinen Rechner.

Bis dahin, viele Grüße

Klaus
Klaus
  Mit Zitat antworten Zitat