System Delphi

Title: run program as a screensaver?
{
To develop a screensaver you have to pay attention to the
following things:
A screensaver has two modes: configuration and running mode
A screensaver has the prefix .scr and not .exe !
But it is identical to a normal program.
Windows starts the program with the parameter /c to
configure the screensaver and with /s to run the screensaver.
}
{
Um einen Bildschirmschoner zu programmieren, muss man folgendes beachten:
Ein Bildschirmschoner kann gestartet oder konfiguriert werden!
Ausserdem hat er die Endung .scr und nicht .exe !
Er ist aber mit einem Programm identisch!
Windows startet das Prgramm mit dem Parameter /c um ihn zu
konfigurieren und mit /s um ihn zu starten.
}
procedure TForm1.FormCreate(Sender: TObject);
begin
if ParamCount 0 then
begin
if ParamStr(1) = '/c' then
begin
{start configuration form}
end
else
begin
if ParamStr(1) = '/s' then
begin
{start screensaver}
end;
end;
end;
end;