一个屏幕保护程序制作的例子.docVIP

一个屏幕保护程序制作的例子 发布:admin | 发布时间: 2010年3月30日 利用Delphi强大的功能,再加上你的精彩设想可以很容易作出一个屏幕保护程序。下面就教你如何实现:?　　一、创建窗体并加入控件。?　　1、窗体?　　名称:Form1?　　属性:BorderStyle:　　?bsNone;Color:clBlack;?　　　　?WindowState:wsMaximized;?　　2、标签?　　名称:?Label1;?　　属性:?Caption:这是一个屏幕保护程序;?　　　　?Autosize:True?;Color:clBlack;Font:?红色;?　　3、时钟?　　名称:?Timer1;?　　属性:?Interval?:100;?　　二、为了使该程序在每台计算机上都以同样大小显示,需要设置屏幕运行时的尺寸。?　　在Form1的Form1create事件中加入以下代码。?　　?procedure?TForm1.formCreate(Sendet:Tobject);?　　begin?　　?if?EnumDisplaySettings(nil,?0,?lpDevMode)?then?　　?begin?　　　　lpDevMode.dmFields?:=?DM_PELSWIDTH?　　　　Or?DM_PELSHEIGHT;?　　　　lpDevMode.dmPelsWidth?:=640;?　　　　lpDevMode.dmPelsHeight?:=?480;?　　　　ChangeDisplaySettings(lpDevMode,?0);?　　?end?　　?end;?　　其中lpDevMode是TDeviceMode类型的全局变量。?　　三、实现击键和鼠标移动后退出程序。?　　在form1的FormKeyDomng事件中加入:?　　procedure?TForm1.FormKeyPress(Sender:?TObject;?var?Key:?Char);?　　begin?　　?Form1.Close;?　　end;?　　在Form1的FormMousrMove事件中加入以下代码:?　　procedure?TForm1.FormMouseMove(Sender:?TObject;?Shift:?TShiftState;?X,?Y:?Integer);?　　begin?　　?if?(bz=0)?then?　　?begin?　　?xx:=x;?　　?yy:=y;?　　?bz:=1;?　　?end?　　?else?if(?x〈〉xx)or(y〈〉yy)?then?　　?Form1.close;?　　end;?　　其中,xx,yy和bz是integer类型的全局变量。?　　四、实现Label的来回移动。?　　在Timer1?的Timer1Timer事件中加入以下代码:?　　procedure?TForm1.Timer1Timer(Sender:?TObject);?　　begin?　　?t:=t+1;?　　?if?t〈=Form1.Width+Label1.Width?then?　　begin?　　?Label1.Left?:=Form1.Width－t;?　　end?　　?else?　　t:=0;?　　end;?　　其中t是integer类型的全局变量。?　　如果你还想为你的屏幕保护程序加上背景音乐,首先把mmsystem单元添加到implementation单元部分的uses子句中,然后在Form1的formShow事件中加入playsound(′c:\1.wav′,0,snd－async?or?snd－loop)(“1.wav”是你将要播放的音乐文件,假定位于c:\?)。?　　运行你的程序,将会看到“这是一个屏幕保护程序”从右到左在屏幕上循环滚动,并伴有音乐。最后将编译好的.exe文件,改名为.scr文件,拷贝到计算机Windows目录下,通过Windows的屏幕属性选择运用该程序作为计算机的屏幕保护程序,到此整个屏幕保护程序制作设定完毕。? ? Vvvv 用DELPHI设计屏幕保护程序 景德镇市第五中学 严剑 ----屏幕保护程序是一类特殊的WINDOWS程序。如果已安装了屏幕保护程序，超过等待时间没有鼠标和键盘操作，WINDOWS会自动运行屏幕保护程序以保护屏幕。在休息之余，欣赏一下漂亮的WINDOWS屏幕保护，使人赏心悦目。那么设计屏幕保护程序要注意哪些方面？由于屏幕保护程序需满足一些特殊条件，比如屏幕保护程序只能有一个实例运行，运行后一旦使用鼠标或键盘应立即结束程序，能接受参数