Eigener Bildschirmschoner in Delphi

[TOC]

Hi!

Seit ewigen Zeiten hatte ich schon Lust mal einen eigenen Bildschirmschoner zu programieren. Schwierig dabei ist eigentlich nur das diese Bildschirmschoner auf den ersten Blick keine normalen Programm zu sein scheinen da sie mit der Dateierweiterung "*.scr" enden und nicht mit "*.exe". Auch ist in der Windows32DeveloperHelp dieses Kapitel "ScreenSaver" über die ScreenSaver.library nicht gerade leicht verständlich, und, wie ich herausgefunden habe, geht´s auch viel einfacher!

Durch Zufall habe ich im Netz folgenden Artikel gefunden : http://www.mindspring.com/~cityzoo/scrnsavr.html Dort wurde erklärt das ein Bildschirmschoner von Windows aus mit bestimmten Parametern über die Kommandozeile gestartet wird. Allerdings wurde auch gesagt das immer nur ein Bildschirmschoner laufen darf und das man über die Variable "hPrevInst" abfragen könnte ob das Programm schon gestartet wurde... funktioniert leider nicht denn:

Zitat von Die Windows32DeveloperHelp:

...However, in a Win32-based application, hPrevInstance is always NULL.
Therefore, you cannot determine if another instance of your application
has been started simply by examining hPrevInstance. This article gives you
a method you can use...

Aber ich habe folgenden Trick herausgefunden: Ich suche mit der Windows-Funktion "FindWindow(ClassName,WindowNameChar):HWnd" einfach die Liste aller Fenster ab und finde ich ein Bildschirmschoner-Fenster von meinem eigenen ScreenSaver dann schicke ich ihm eine Nachricht (mit SendMessage) das das Programm sich doch bitte beenden soll. Wenn sich das Programm beendet schickt es mir eine "0" als Antwort, wenn es sich nicht beenden will weil es im Modus "/s" gestartet wurde eine 1, und dann beendet sich das zweite aufgerufene Programm selbst. Ungewöhnlicher Trick, ich weis, aber es klappt. Dazu muss man das Delphi-Hauptprogramm, das normalerweise vom Delphi-Compiler automatisch erzeugt wird, ein klein wenig abändern:

Delphi-Quellcode:

program LinesScreenSaver;

uses
  Forms,
  Windows,
  Messages,
  Main in 'Main.pas' {MainForm},
  Screen in 'Screen.pas' {ScreenForm},
  Configuration in 'Configuration.pas' {ConfigForm},
  Graphic in 'Graphic.pas';

{$R *.RES}

Var
  Wnd:HWnd;

begin
  // Testen ob der Bildschirmschoner schon läuft
  Wnd:=FindWindow('TMainForm','ScreenSaver');
  // Wenn ja...
  If Wnd<>0 then Begin
    // ...dann Nachricht senden das er sich beenden soll
    // Wenn er sich nicht beenden will (Modeus "/s")
    If SendMessage(Wnd,wm_User,0,0)=1
    // Dann brech das Programm eiskalt ab!
    Then Halt(0);
  End;

  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TScreenForm, ScreenForm);
  Application.CreateForm(TConfigForm, ConfigForm);
  // Diese Zeile verhindert das das Hauptfenster angezeigt wird!
  Application.ShowMainForm:=false;
  Application.Run;
end.

So. Das war der erste notwendige Trick. Interessant ist auch das man durch die Zeile "Application.ShowMainForm:=false" verhindern kann das das Hauptfenster angezeigt wird.

Parameter
=========

Windows startet einen ScreenSaver mit drei möglichen Parametern (ParamStr(1) und (2):

Code:

ParamStr1  ParamStr2  Bedeutung

"/s"                  Bildschirmschoner im Vollbild-Modus starten

"/c:N"                Es wurde auf "Einstellungen" gedrückt und soll das 
                      Konfigurations-Fenster angezeigt werden

"/p"       "N"        Der Bildschirmschoner wurde gestartet und soll
                      seine Grafik im verkleinerten Beispielfenster anzeigen

So. Das "N" ist jeweils ein Fensterhandle, klever nich? Und zwar ist es im Modus "/c:N" das Handle des Fensters in dem man unter "Bildschirmschoner" auf "Einstellungen" und "Testen" drücken und einen Bildschirmschoner auswählen kann; aber dummerweise nur das Händel des PageControl-Objekts und nicht das Händel des Hauptfensters. Nun ja, ich hol mir dann einfach mit der Funktion "GetParent(Wnd:HWnd):HWnd" das Händel des übergeordneten Fensters und sperre dieses Fenster mit "EnableWindow(Wnd:HWnd; Enable:Boolean):Boolean" bevor ich das Konfigurations-Fenster aufrufe. Natürlich muss man das Fenster wieder entsperren wenn das Konfigurieren beendet ist.
Dieses Sperren ist notwendig damit der Anwender nicht einfach auf "Ok", "Abbruch" oder "Übernehmen" drücken kann während das Konfigurations-Fenster sichtbar ist. Dies hätte nämlich unangenehme Folgen...

So. Das "N" im Modus "/p" ist interessanterweise das Fensterhändle dieser verkleinerten Darstellung des Bildschirmschoners! Nun, wenn man ein Fensterhändel hat dann kann man sich mit der Funktion "GetDC(Wnd:HWnd):HDC" den DeviceContext des Fensters holen und in dieses hineinzeichnen. Und genau das macht mein Bildchirmschoner: Gesteuert von einem Timer wird alle N Millisekunden ein neues Bild in eine Bitmap gezeichnet, und dieses Bild wird dann mit "StrecthBlt()" in das verkleinerte Fenster gezeichnet. Das ist schon der ganze Trick. Wird das Fenster "Eigenschaften von Anzeige" geschlossen dann wird dieser DC natürlich ungültig, der Bildschirmschoner bemerkt dies und beendet sich selbst. Klever, nich?

Also, das ganze hört sich mal wieder komplizierter an als es im Grunde genommen ist, weil: Das ganze Gefummel braucht dich kaum zu interessieren! Im Archiv findest Du zwei verschiedene Versionen, eine für Delphi 3.0 und eine für Delphi 7.0. Enthalten sind darin jeweils zwei Ordner mit Quellcodes, nämlich "Empty ScreenSaver" und "Lines ScreenSaver". Wenn Du nun Deinen eigenen Bildschirmschoner schreiben willst dann nimm den QuellCode von "Empty ScreenSaver" als Basis. Ich hab aus diesem Programm fast alles entfernt was nicht notwendig ist. Es gibt nur ZWEI Units in denen Du etwas ändern musst: "Configuration" und "Graphic". Von allen anderen Units solltest Du Deine Finger weglassen, Änderungen sollten hier nur erfahren Delphi-Programmierer machen!

Ich habe versucht das alles ordentlich und modular zu programmieren:

In der Unit "Configuration" must Du nur zu Deinem eigenen Bildschirmschoner passend entsprechende Einstellungen ermöglichen, und mit "LoadConfig" und "SaveConfig" kannst Du Deinen Code einbinden der diese Einstellungen dann in einem IniFile abspeichert bzw. lädt. Das IniFile selbst wird automatisch erzeugt, darum brauchst Du Dich nit zu kümmern!

In der Unit "Graphic" ist alles enthalten was mit dem Zeichnen der Grafik zu tun hat. Dort findest Du 4 Prozeduren die Du Deinen Vorstellungen gemäss ändern must:

InitGraphic
Hier kannst Du Speicher besorgen und Objekte erzeugen die Du für Deine Grafik
benötigst. Diese Funktion wird beim Programmstart automatisch aufgerufen.

ClearGrafik
Hier kannst (bzw. MUSST!) Du den Speicher und die Objekte wieder freigeben.
Diese Prozedur wird nur vor dem Programmende automatisch aufgerufen.

NewGraphic
Diese Prozedur wird beim Programmstart automatisch aufgerufen und auch dann wenn
der Anwender im Konfigurationsfenster irgendwelche Einstellungen geändert hat. Du
kanst hier also irgendwelche Eigenschaften Deiner Grafik ändern, Variablen neu
initialieren etc. .

PaintGraphic
Dies ist die Hauptzeichenfunktion die vom Timer alle N Millisekunden aufgerufen
wird und die Bild für Bild eine neue Grafik zeichnet. Du zeichnest im Hintergrund auf eine BitMap
die Dir übergeben wird. Um das Kopieren dieser Bitmap ins Hauptfenster
oder verkleinerte Fenster brauchst Du Dich nit zu kümmern, dies
übernimmt die Prozedur "Flip" aus der Unit "Screen" und geht voll automatisch.

So. Ich hoffe das Euch dieer Roman hier nit zu lang und kompliziert war. Und ich hoffe das Ihr jetzt alle wie wild beginnt Eure eigenen Bildschirmschoner zu basteln! Ich hab versucht Euch dies so einfach wie möglich zu machen !

Die Programme sind GiftWare, und, logischerweise, OpenSource!

Das ganze sollte ab Windows ´95 laufen, getestet habe ich es erfolgreich mit Windows ´98 SE und XP. Das Programm verwendet nur Standard-Delphi-Komponenten und schreibt im übrigen NIX in die System-Registrierung!

Ach ja: Vergesst blos nicht Euren Bildschirmschoner ins Verzeichniss "C\Windows" zu kopieren und seine Dateierweiterung von "*.exe" in "*.scr" zu ändern, sonst klappt das ganze nämlich nit!

--[Edit]-------------------------------

In den alten Versionen der Programme im Anhang befand sich in der Uses-Clausel der Unit Screen irrtümlicherweise noch ein Bezug auf IdleTimer, dies habe ich nun geändert.

Eine neue Version des LinesScreenSavers, der Delphi-Objekte anstalle der Old-Style-Objekte verwendet ist in Arbeit aber leider noch nicht ganz fertig, kommt aber demnächst !

Grüsse von TOC !

[Nicodius]

gehört schon fast in tutorial find ich


danke sehr gut geschrieben!



grüße Nico


edit// und ja er macht süchtig

[TOC]

Hi!

Zitat von Nicodius:

danke sehr gut geschrieben!
grüße Nico
edit// und ja er macht süchtig

Cool, freut mich das er Dir gefällt !

Grüsse von TOC !

[zynax421]

Ich hab zwar nur die Hälfte verstanden von dem was geschrieben wurde, aba meinen Trick zum Screensavererstellen hab ich net raußgeslesen.
Wenn ich jetzt was doppelt erzähl, tut so als ob der Beitrag hier net steht. lol
Ich schreib nen Programm mit Delphi, die .exe kopier ich in C:/Windows/system32/ und nen sie in .scr um. Wichtig is das der Dateiname mit ss anfängt (für Screensaver). Der Name folgt darauf.
Also mögliche Dateinamen sind zm Beispiel: "sscars.scr" "ssurlaub.scr" oder "ssbildschirmschoner.scr".
Den Screensaver kann man dann aufm Desktop unter Rechtklick/Eigenschaften/Bildschirmschoner auswählen.
Ich hoff der Tipp hat was gebracht.

[TOC]

Hi!

Zitat von zynax421:

Ich hab zwar nur die Hälfte verstanden von dem was geschrieben wurde, aba meinen Trick zum Screensavererstellen hab ich net raußgeslesen.
Wenn ich jetzt was doppelt erzähl, tut so als ob der Beitrag hier net steht. lol
Ich schreib nen Programm mit Delphi, die .exe kopier ich in C:/Windows/system32/ und nen sie in .scr um. Wichtig is das der Dateiname mit ss anfängt (für Screensaver). Der Name folgt darauf.
Also mögliche Dateinamen sind zm Beispiel: "sscars.scr" "ssurlaub.scr" oder "ssbildschirmschoner.scr".
Den Screensaver kann man dann aufm Desktop unter Rechtklick/Eigenschaften/Bildschirmschoner auswählen.
Ich hoff der Tipp hat was gebracht.

Durch ausprobieren hab ich herausgefunden das der Name des ScreenSAvers eigentlich kein grosse Rolle spielt. Man nuss nur die Dateierweiterung auf "*.scr" ändern und das ganze ins Verzeichnis "c/windows" kopieren. Dann kann man ihn über "Eigenschaften von Anzeige/Bildschirmschoner" aktivieren und konfigurieren.

Ein Bildschirmschoner muss seine verkleinerte Darstellung anzeigen können und die Kommandozeile auf "/S" oder "/C" oder "/P" überprüfen und dann entsprechend reagieren. Das ist schon ein gewisser Programmieraufwand.

Grüsse von TOC!

[TOC]

Hi!

Es gibt ein UpDate! Hier kommt ScreenSaver V 1.1!

Also, es hat mich genervt das in Windows 98 und Windows XP die Grösse des verkleinerten Beispielfensters unterschiedlich ist, bei XP um ein Pixel in X und Y grösser!
Naja. Die neue Version holt sich mit der Windoofs-Funktion 'GetClientRect(Wnd:HWnd; Rect:TRect):Boolean' nun also die aktuelle Grösse vom Fenster, anstatt einen festen Wert zu verwenden.
Ich denke das ist die bessere Lösung.

Sonst hat sich nix geändert!

Grüsse von TOC!

[stz]

super,
vielen Dank!

Endlich hat mal jemand alle meine Probleme mit Bildschirmschonern gelöst :-D :-D

[TOC]

Hi!

Zitat von stz:

super,
vielen Dank!

Endlich hat mal jemand alle meine Probleme mit Bildschirmschonern gelöst

Hey, cool das sich mal jemand drüber freut!

Wie gesagt, du brauchst nur zwei Units vom 'Empty ScreenSaver' für Deinen eigenen Bildschirmschoner abzuändern !

Grüse von TOC!

[Koolance]

Ich muss dir auch meinen Dank aussprechen, ich habe zuerst einen Screensaver unter Verwendung von TScreensaver programmiert. Der hat aber auf diversen Computern Probleme gemacht. Heute habe ich deinen getestet und ein bisschen angepasst und ein bisschen angepasst und er läuft einfach super.

Noch eine kleine Anmerkung. Ich habe in mit Delphi 2006 kompiliert und zuerst kam die Fehlermeldung das die IdleTimer.dcu nicht gefunden wird. Nachdem ich IdleTimer aus den Uses entfernt habe ließ er sich kompilieren.