Mega Code Archive

 

Categories / Delphi / System

 

How to run program as a screensaver

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;