Kompo für Screensaver gesucht

[necromancer1983]

Ich suche dringend eine Screensaver Komponente für Delphi 7!

Kennt jemand ne Gute?

auf DSP und Torry habe ich schon geguckt...

[geloescht_JesterDay]

Wozu eine Komponente?

Mach eine normale Anwendung. mit 2 Formularen. Eines ist das Screensaver Formular, das andere das Setup-Formular.

In den Projektquellcode fügst du dann ein:

program Project1;


uses

  Forms, 

  System, 

  Form1 in 'Unit1.pas',

  Form2 in 'Unit2.pas';


{$R *.res}


var param: String;


begin

  param:= copy(UpperCase(paramstr(1), 1, 2);

  if param = '/C' then

  begin

    Application.Initialize;

    Application.CreateForm(TForm2, Form2);

    Application.Run;

  end

  else 

  if param = '/S' then 

  begin

    Application.Initialize;

    Application.CreateForm(TForm1, Form1);

    Application.Run;

  end;

end.

Ein Screensaver ist eine ganz normale Exe. Allerdings muss die Endung .scr sein und sie muss im System-Verzeichnis liegen. Beim Starten wird ein Parameter übergeben. /S für Start bzw. Show und /C für Config (/P für Preview gibt es auch noch). Entpsrechend werden die Formulare angezeigt.

Ach ja, auf Tastendruck bzw. Maus muss das Programm beendet werden.

Viel spass mit deinem Screensaver.

EDIT:

Ach ja, du könntest (solltest) noch eine Stringtable als Resource erstellen, die de den kurzen Text enthält, der in der Listbox angezeigt wird. Also {$R title.res} hinzufügen.

[necromancer1983]

danke!