Title: How to run program as a screensaver
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;