利用Delphi编写屏幕保护程序

======================================================
注：本文源代码点此下载
======================================================

----实际上windows的屏幕保护程序也是一个可执行文件,只不过扩展名是.scr而不是.exe。但是它也应满足一定的要求,以便提供给控制面板合适的接口。使得用户可以在显示器的“属性”中选择和配置它。通常它应满足以下要求:

---- 1、包含有关于自己的设置;

---- 2、提供关于自己的描述;

---- 3、能够区分是激活状态还是配置状态;

---- 4、不允许自己的拷贝同时运行;

---- 5、当键盘或鼠标有动作时退出程序。

----其中,“设置”与普通程序一样,只是要注意,只有在控制面板中配置它时“设置”窗口才会被激活。下面我们主要讨论剩下的四个问题。

一、首先,建立屏幕保护的主窗口

---- 在delphi的菜单上或工具条上选择"new form"建立一个"blankform"在object inspector中将它的属性配置为:

bordericon []

bisystemmenufalse

biminimizefalse

bimaximizefalse

borderstyle bsnone

colorclblack

formstyle fsstayontop

namesav_form

visiblefalse

从system控件板中选择一个"timer"控件,

设置它的属性为:

enabled ture

interval2000

nametimer1

tag0

----在本例中保护屏幕上显示照片,所以要在窗口上再加一个image将它的auotosize设为ture,visible设为false,双击装入你想显示的图片,本例采用《计算机世界》1998年49期中介绍的方法,使bmp图片以垂直交错的方法显示,代码如下:(详情见《计算机世界》1998年49期“delphi中的图形显示技巧”)

private

{ private declarations }

procedure showpic();

...

procedure tsav_form.showpic(sender: tobject);

var

newbmp:tbitmap;

i,j,bmpheight,bmpwidth:integer;

begin

newbmp:= tbitmap.create;

newbmp.width:=image1.width;

newbmp.height:=image1.height;

bmpheight:=image1.height;

bmpwidth:=image1.width;

i:=0;

while i0)do

begin

newbmp.canvas.copyrect(rect(0,j-1,bmpwidth,j),image1.

canvas,rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));

newbmp.canvas.copyrect(rect(0,bmpheight-j,bmpwidth,

bmpheight-j+1),image1.canvas,rect(0,i-j,bmpwidth,i-j+1));

j:=j-2;

end;

sav_form.canvas.draw(20,10,newbmp);

i:=i+2;

end;

newbmp.free;

end;

----当然,你也可以采用别的方法显示,或者将屏幕设计成做你想做的任何模样,只要在定时器的响应时间中调用你的函数就行了。本例,在定时器的ontimer消息处理程序中调用

showpic();

type

......

procedure timer1timer(sender: tobject);

procedure tsav_form.timer1timer(sender: tobject);

begin

showpic;

end;

---0-dededrtyupiuytrew

trype

procedure formactivate(sender: tobject);

procedure tsav_form.formactivate(sender: tobject);

begin

windowsstate:=wsmaximized;//覆盖屏幕;

showcursor(false);//隐藏光标;

end;

二、监测键盘和鼠标

---- 保护屏幕作好后,就要监测键盘和鼠标。方法是为application.onmessage事件建立一个句柄,检测中断屏幕保护的条件是否满足。在sav_form的private中加入以下代码:

procedure detect(var msg:tmsg;var handled:boolean);

在implementation中加入以下代码:

procedure tsav_form.detect(var msg:tmsg;

var handled:boolean);

var

done:boolean;

begin

done:=false;

if (msg.message=wm_keydown or

msg.message=wm_mousemove) then

done:=true;

if done then

begin

close;

end;

end;

---- 在为窗口的onshow事件加上处理函数。在函数中加上以下代码:

procedure tsav_form.formshow(sender: tobject);

begin

application.onmessage:=detect;

//showcursor(false);

end;

三、提供关于自己的描述

---- 你可以用delphi中的{$dtext} 定义出现在“显示”“属性”中显示的你的屏幕保护程序的名称,$d参数直接将text插入可执行文件入口的描述模块(description module)为了让控制面板认识你的描述,必须加入"scrnsave"。选择项目文件在{$r *.res}后加入以下代码:

{$d scrnsave my screen saver}

"my screen saver"将显示在控制面板中的

“显示”“属性”中。

四、激活状态和设置状态,以及屏蔽多拷贝的运行

---- windows在两种条件下运行屏幕保护程序,1、当屏幕保护的时间设置到时则激活;2、当屏幕保护被设置时激活。为了区分这两种状态windows在命令后加了参数,"/s"表示是激活状态,"/c"表示是设置状态。因此,我们的屏幕保护程序也必须区分参数以便做不同的处理。

----屏幕保护程序和其他程序不同的是,它不允许自己的拷贝同时运行。hprevinst是一个delphi定义的全局变量,它指向当前程序前一个拷贝,如果该变量为0,则表示当前程序是唯一的实例。我们可以利用这个变量屏蔽多拷贝的运行。

----以下的代码实现了区分激活状态和设置状态,以及屏蔽多拷贝的运行的功能。(该代码在项目文件中)

begin

if hprevinst = 0 then

begin //如果当前实例是唯一实例

if (paramcount > 0) and

(uppercase(paramstr(1)) = '/s') then

begin

//如果是激活状态

application.initialize;

application.createform(tscrnfrm, scrnfrm);

end else

begin

//可以在这里加入你的配置代码

end;

application.run;

end;

end.

五、安装

----最后,将程序编译、链接后拷贝到windows目录下,将程序的扩展名改为.scr即可在控制面板中选择"my screen saver"了。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/