1。做一个通常的Exe，包含两个窗体，一显示屏保的画面，二设置屏宝
2。在Dpr中加入{$D SCRNSAVE : Delphi Screen}//delphi scren屏保的名字
3. 在begin
中加入：
If HPrevInst <> 0 then
Exit;//如果已运行则退出
CmdLine := UpperCase(ParamStr(1));//取命令行参数
if CmdLine <> '/S'//参数为'/s',启动屏保，否则，设置屏宝，Windows通过命令行参数/s启动屏保。
then
begin
