说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

用DELPHI 做一个简单的屏幕保护程序

HTML文档下载 WORD文档下载 PDF文档下载
用DELPHI 做一个简单的屏幕保护程序

利用DELPHI强大的功能,再加上你的精彩设想可以很容易作出一个屏幕保护程序。下面就教你

一、 首先创建一个窗体,在窗体中加入一个timer控件和一个label控件,各控件名称和重要属性设置如下。

窗体

名称:Form1

属性:borderstyxe :bsnone ; color : clblack ;windowstate: wsmaximized;

标签

名称: label1;

属性: caption;这是一个屏幕保护程序;

Autosize:True ;

时钟

名称: Timer1;

属性: interval :100;

二、为了使该程序在每台计算上都以同样大小显示,需要设置屏幕运行时的尺寸。

在Form1的Form1create事件中加入以下代码。

procedure TForm1.formCreate(Sendet:Tobject);

behin

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 ;

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的屏幕属性选择运用该程序作为计算机的屏幕保护程序,到此整个屏幕保护程序制作设定完毕。

开源产品系列:简单强大的模板语言JSON Template 十年历史的KDE bug修复 为什么函数式编程在Java中很危险? Android平台获X11协议支持,手机变身绘图板 Rackspace通过OpenStack和定制OCP服务器节省40%成本 美国人是如何利用大数据的应用来防止流感的蔓延 W3C北航总部成立:招兵买马增强中国标准声音 Mozilla推出开发者预览版Firefox OS智能手机 强强联合?传微软投30亿参与Dell私有化 微软发布Windows Phone 7.8 SDK更新 Amazon账号将支持内付费 道具可登畅销榜 裸照门:500px应用被苹果踢出App Store APP的魔法:三个杭州小伙做手游吸金千万 Facebook与Google,巨人们将在移动端决胜负 移动广告量起来了!2013年绩效营销将成主流 Fedora欲以MariaDB取代MySQL 将节能进行到底:Facebook为冷存储寻求廉价闪存 谷歌Q4财报净利润28.86亿美元 超分析师预期 社交媒体的力量:Wood Camera登上iOS付费榜首之谜 屏蔽GitHub是互联网时代的“闭关锁国”吗? 巧妙利用空白设计案例分享(多图) 用友发布2013/新三年业务策略 力推UAP/CSP云平台 AWS集群计算新增内存分析EC2实例 手游:鼓足力气,掰弯传统3D游戏大作 LBA兴起:未来移动广告将基于地理位置 苹果发布2013财年Q1财报:iPhone销量及营收低于预期 不再被墙后 一个全新GitHub到来 与乔布斯并肩作战的日子 Google抛弃Exchange ActiveSync WP用户获DAV支持 Facebook真的要做“Facebook Phone”? 程序员,都去写一写前端代码吧 关于对Com1,Com2读取条形码的编程 帮个忙,先,谢了! 接着那个堆栈问题,创建了,试验了。但应用时出现了对创建错误? 我想在对话框上输出一个char数组,用什么方法比较好????????????? 怎样移动较大副图片的时候避免或者尽量减少闪动? 怎么把网络编程和数据库联系起来 如何贴背景透明的按钮?急,急,在线等待!!! 奇怪了! 请问如何获得居于网中一个工作组下的所有计算机?? 还是一个dll内部变量的问题。 怎么回事? 送分! 大家看看 请问MSDN的帮助怎么获得 怎么样获得一同名text表单域的值? **C++语言的设计和演化** 图书好贵呀!!! 求表达式正确与否的校验算法 怎样控制DllMain?在哪里可以编辑这个函数? 同一个句柄对于所有进程是否一样? 我的red hat linux8 怎么才能配置声卡 如何判断一个字符串是否是常数 《Java与模式》一书已经出版 --- 作者 各为高手,如何能够看到我打开网页的session的值 关于 Geforce256 的问题. 一定给分!数据库查询问题 solaris下有没有用过syslog编程的? 推荐个好点的flash的控件吧 数据库中的Currency类型字段 初学pb8请指教!多谢! 如何让richtextbox支持语法高亮显示 请问rtsp是什么协议? 函数返回临时指针到底如何处理较好? 原来在bcb4下的程序为什么在BCB6下运行出错? 我是新手 如何用代码关闭显示器和硬盘??????? 如何打印PictureBox中的所有内容,分不够可以再加 问一下大家的下载和注册的比率好吗? 我的IE怎么了? 这是我第二天的C#学习笔记,敬请高手指教 ★★★ 在线等待,高分求对 ★★★ >>>>>>> 虞美人身佩玉蝴蝶蝶恋花 linux 热启动后能不能再进入winme? 大家说高中毕业自学的c#程序员有可能找到工作吗? 急!如何给DBGrid对应的列字段规定显示格式 用VB将图片插入到Excel或WORD里 请问文本压缩目前有什么标准? 怎么控制小数点后的位数????? Oracle Developer的B/S结构是如何实现的? asp 变量运算 小小问题,快来看! 一个判断性的问题 帮帮忙 The teacher,with the student is going to work on the farm this sunday 为什么用is Where are you going this afternoon?What are you going to do there?When are you going?用英语回答上面的问题. 西语大舌颤.我一定要发出来.麻烦教下亲身经历. The teacher with the students often ___ to the moutains.A.go B.are going C.goes D.is going 人固有一死,或重于泰山,或轻于鸿毛.的 固 西语大舌颤困扰中.麻烦说下练会的亲身经历哈谢谢啦 The teacher is giving ___ the new books to the students填介词或副词 "人固有一死,或重于泰山,或轻于鸿毛."或"呢? 大一新生的自我介绍.口头的那种.大约一分钟左右.求内容! 扑克牌A代表什么意思 “人固有一死,或重于泰山,或轻于鸿毛. 什么是细胞信号转导 生物分类依据病毒分类吗?立克次氏体分类吗?真菌,动、植物和微生物的分类依据,通俗点。按照界、门、纲、目、科、属、种来分。 英语作文洗衣服 请问信号转导和信号传导在分子细胞生物学上有什么区别?比如,G蛋白和一氧化氮的信号传导,这里的信号传导是否等价于信号转导呢?一种说法是信号传导:signaling,信号转导:signal transduction,这 描写树木茂盛的成语(10个以上)急, 大一新生自我介绍如何介绍才能出彩?有书面介绍吗?口头和书面分别需要多长时间的?一般说哪些方面的内容呢?(我是一名女生) 急求一份2009年总结2010年计划本人是一公司前台文员,因没有太多时间来想这些, 生物分类的依据动物的分类单位不仅要比较外部形态,还要比较动物的_____和______. 大一新生要作自我介绍的吗? 宇宙上有外星人吗?求大神帮助 沙漠的动物怎样生存 爬山虎是一种什么植物?它的花和牵牛花是一回事吗? What's the best clothing store in town? 问下be going to 的句型是不是be going to的句型后面可以加动词啊?yes,i am to go to learn that how to driveyes,i am to learn that how to drive 这两句话语法上是对的么?有什么区别 求大一新生自我介绍 Hi,I'm doing a suevey for the Bedford Daily News.__the best clothing store in town 英语经典习题:情景对话Allen:hello!Mike:hello._____.May I speak to Allen,please?Allen:_______.Mike:Hi,Allen,Hwo are you?Allen:Fine,thanks.Hwo are you?Mike:I‘m fine._____.Allen,I need some help.____.Allen:Sure._______.Mike:There is somethi 描写树木长得茂盛的成语(最少4个)那么 这是什么植物,看着不像牵牛花,谁能详细告诉我,感恩.. 两道英语情景对话题,-How is it going,Tom? - ( ) A.Oh,okay,I guess. B.Not doing wrong. C.Sorry,I'm not so good. D.Noting,thanks 2.-Can I help you,sir? -( ) A.Yes,you can help me. B.No,I don 为什么植物开花季节不同?写说明文急需, 牵牛花是植物,牛是动物,判断依据是什么 我国的珍贵的历史文物有哪些 michael is going to be a singer when he grows up (对划线部分提问 划线部分是a singer 什么叫做生物钟?我们能不能利用昼夜对植物的影响规律来改造植物,比如,让牵牛花在晚上也能开花,可以吗 我国珍贵历史文物只要名【如秦兵马俑】. I'm going to take you to the library.(对划线部分提问)划线部分是有.给个完整的句子 Oh yeah?()are you going to stay?Only for four days.I don‘t like ()away for too long.A how long ;goingB how long;leavingC how soon;goingD how soon:leaving要说出how long和how soon的区别和leave away和go away的区别以及为 中国的历史文物有什么要二十个 how will you go there?by train. We are going to stay in my uncle's home for a w______ day请写明原因, 像从前一样的好朋友是什么词 how soon will you go there?这句话有语病吗 ( )are you going to stay there?For four hours 像从前一样做好朋友是什么词语 How will you go there? 简述细胞内参与信号传递的分子种类及作用基理求全解,尽量简要概括. 急求 在哪个季节开花的植物,花芽的形成最需要光照?( ) A春季 B夏季 C秋季 D冬季 请速给我一篇题目叫‘红色少年’的作文 只要内容就是写树立自己远大理想等等 TCR细胞外部分大于细胞内部分,mianyiz免疫系统如何解决向胞内传递信号困难问题 绿色开花植物长 到一定阶段产生花芽绽放称称开花对么 原题是判断题 争当热爱祖国,理想远大的好少年如题,200字左右的国旗下讲话稿,急,这两天要,好的话可以加多二十分! 西班牙语中的大舌颤我一直发不出那个大舌颤,其实我真不知道大舌在哪里,我以前会发两种颤音,一种就像狗在发怒前的低吼,我摸了一下,实在喉部前端偏上颤动的,另一种上颚偏后,好像是小舌 和秦兵马俑同样珍贵的历史文物有哪些? 做爱国、理想远大的好少年的作文一篇400字 西班牙语中的大舌颤怎么颤? 除兵马俑外,我国珍贵的历史文物有( ),( ) 争当热爱祖国 理想远大的好少年的计划300-500字 内容具体 一小时之内 西班牙语r卷舌音到底怎么练啊,怎是使舌头颤抖啊!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘