关于屏保程序的讨论 不来回答你可能说这里人气不旺了^_*其实很多讲Delphi入门的书上都有屏保制作的例程呀,和exe的区别,有点就是编译的时候扩展名要是src。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 windows 屏幕保护程序的扩展名为scr,保存在windows目录下。其实这些文件是可执行文件,是将exe文件改成scr文件,然后在菜单的file的run命令,此时屏幕保护程序被执行,显示设置界面,如果带有参数来执行,则马上进入屏幕保护状态。 其实屏保也没什么特别的,主要就是程序运行时能覆盖整个屏幕,并当有键盘或鼠标按下时能退出程序就行了,当然,后缀名是.scr 你的问题不是很具体,贴一个帖子给你参考屏幕保护程序无非是扩展名换成了.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') thenbegin//如果是激活状态Application.Initialize;Application.CreateForm(TScrnFrm, ScrnFrm);end else begin//可以在这里加入你的配置代码end;Application.Run;end;end. 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') thenbegin5. 将编译好的*.exe改名为*.scr 全局热键问题之二 pchar是什么意思? 如何获得某个月的最后一天? ip地址配置文件 delphi怎么跟Exchange Server 及net meeting连接,然后获取邮件及邮箱地址 不知道该用什么标题.大概是连接两个有Handle的组件! 关于fastreport问题 Delphi Server 页中的 有关 Excel的一组控件如何用啊? 请问一下谁有做过用大恒图像采集卡采集图片的例子 我刚刚完成一个软件,想放到csdn的软件下载中!但我没找到怎么上传上去! 请问用Delphi,怎么显示ACCESS数据库图形字段内容? quickreport的预览的“close”按钮怎么汉化
屏幕保护程序无非是扩展名换成了.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.
2. 屏保的效果自己去设计了
3. 在OnMouseMove, OnClick, OnKeyPress, OnKeyDown等事件中self.close可以实现用户有操作时退出屏保
4. 项目文件中的参数配置如楼上所说,不过应该是if (ParamCount > 0) and
(UpperCase(ParamStr(1)) = '-S') then
begin5. 将编译好的*.exe改名为*.scr