关于屏保程序的讨论

[JeaSon]

请问有人知道屏保程序开发的技术问题 ？？？？？？？？？？？

[角落的青苔]

不来回答你可能说这里人气不旺了^_*

其实很多讲Delphi入门的书上都有屏保制作的例程呀，和exe的区别，有点
就是编译的时候扩展名要是src。

[zjs1982]

windows 屏幕保护程序的扩展名为scr，保存在windows目录下。其实这些文件是可执行文件，是将exe文件改成scr文件，然后在菜单的file的run命令，此时屏幕保护程序被执行，显示设置界面，如果带有参数来执行，则马上进入屏幕保护状态。

[ryuxy]

其实屏保也没什么特别的，主要就是程序运行时能覆盖整个屏幕，并当有键盘或鼠标按下时能退出程序就行了，当然，后缀名是.scr

[ilang]

你的问题不是很具体，贴一个帖子给你参考
屏幕保护程序无非是扩展名换成了.SCR的可执行程序，它接受两种命令行参数：
-s 运行命令参数
-c 配置命令参数
Windows通过向程序发-s命令行参数来启动程序。
要注意的是：程序的窗口是无边框和标题；窗口大小应与屏幕大小一样；还要注意
窗口的事件的处理。
　
可以用Delphi中的{$D text} 定义出现在“显示”“属性”中显示的你的屏幕保护程序的名称，$D参数直接将text插入可执行文件入口的描述模块(Description Module) 为了让控制面板认识你的描述，必须加入"SCRNSAVE"。选择项目文件在{$R *.RES}后加入以下代码：
{$D SCRNSAVE My Screen Saver}"My Screen Saver"将显示在控制面板中的“显示”“属性”中。
四、激活状态和设置状态，以及屏蔽多拷贝的运行
Windows在两种条件下运行屏幕保护程序，1、当屏幕保护的时间设置到时则激活；2、当屏幕保护被设置时激活。为了区分这两种状态Windows在命令后加了参数， "/s"表示是激活状态，"/c"表示是设置状态。因此，我们的屏幕保护程序也必须区分参数以便做不同的处理。
if (ParamCount > 0) and
(UpperCase(ParamStr(1)) = '/S') then
begin
//如果是激活状态
Application.Initialize;
Application.CreateForm(TScrnFrm, ScrnFrm);
end else
begin
//可以在这里加入你的配置代码
end;
Application.Run;
end;
end.

[oracle_lover]

1. 窗体BorderStyle:=bsNone; WindowState:=wsMaximized; FormStyle:=fsStayOnTop;这样可以实现全屏显示（可盖住Windows状态栏）
2. 屏保的效果自己去设计了
3. 在OnMouseMove, OnClick, OnKeyPress, OnKeyDown等事件中self.close可以实现用户有操作时退出屏保
4. 项目文件中的参数配置如楼上所说，不过应该是if (ParamCount > 0) and
(UpperCase(ParamStr(1)) = '-S') then
begin

5. 将编译好的*.exe改名为*.scr