社区
Delphi
帖子详情
关于屏保程序的讨论
JeaSon
2002-09-03 01:48:21
请问有人知道屏保程序开发的技术问题 ???????????
...全文
48
5
打赏
收藏
关于屏保程序的讨论
请问有人知道屏保程序开发的技术问题 ???????????
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
oracle_lover
2002-09-04
打赏
举报
回复
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
ilang
2002-09-03
打赏
举报
回复
你的问题不是很具体,贴一个帖子给你参考
屏幕保护程序无非是扩展名换成了.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.
ryuxy
2002-09-03
打赏
举报
回复
其实屏保也没什么特别的,主要就是程序运行时能覆盖整个屏幕,并当有键盘或鼠标按下时能退出程序就行了,当然,后缀名是.scr
zjs1982
2002-09-03
打赏
举报
回复
windows 屏幕保护程序的扩展名为scr,保存在windows目录下。其实这些文件是可执行文件,是将exe文件改成scr文件,然后在菜单的file的run命令,此时屏幕保护程序被执行,显示设置界面,如果带有参数来执行,则马上进入屏幕保护状态。
角落的青苔
2002-09-03
打赏
举报
回复
不来回答你可能说这里人气不旺了^_*
其实很多讲Delphi入门的书上都有屏保制作的例程呀,和exe的区别,有点
就是编译的时候扩展名要是src。
自己做的c#屏幕保护
程序
自己做的屏幕保护
程序
,和Windows下的一样,欢迎各位指点
屏幕保护
程序
源码,很久之前的用于windows xp
屏幕保护
程序
,可以在
屏保
时候播放电影,
屏保
结束时,记录播放时间,下次
屏保
开始时从原来的时间播放
一个C写的屏幕保护
程序
-
屏保
Saver.zip
一个C写的屏幕保护
程序
-
屏保
Saver.zip 屏幕保护c语言
程序
屏保
小
程序
非常的好用
屏保
小程
屏保
小
程序
非常的好用序非常的好用
苹果屏幕保护
程序
,十分漂亮
苹果的屏幕保护
程序
,无病毒,安全,稳定,美观。
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章