Hi,
1. der Code läuft nicht (der Code erfüllt nicht den Sinn für einen Bildschirmschoner)
2.
Delphi-Quellcode:
if ParamCount > 0 then begin
if ParamStr(1) = '/c' then
else if ParamStr(1) = '/s' then
else Application.Terminate;
end else Application.Terminate;
wird leider wie der code von Airblader sofort geschlossen zumindest bei mir, das Create Ereignis benötigt man sowieso für den Bildschirmschoner, weil man ihn sonst nicht in den Desktop-Eigenschaften auswählen kann.