关键是主程序上的写法。<br>如下:<br>program scssen;<br><br>uses<br> Forms,SysUtils,<br> Save in 'Save.pas' {Form1},<br> Unabout in 'Unabout.pas' {about};<br><br>{$R *.RES}<br><br>begin<br> Application.Initialize;<br> if UpperCase(ParamStr(1))='/S' then<br> Application.CreateForm(TForm1, Form1);<br> if UpperCase(COPY(ParamStr(1),1,2))='/C' then<br> Application.CreateForm(Tabout, about);<br><br> Application.Run;<br>end.<br><br>当参数为/S时是系统通知启动屏幕保护。<br>当参数为/C时是系统通知启动屏幕保护设置程序。<br>编译后改扩展名为 .SCR<br>到于FORM中如何作是图形和动画技巧的事了。<br><br>我给别人编了一个屏幕保护的例子,是最简单的了。<br>在黑色的屏幕上随机出现一些星星,又随机的擦除。<br><br>