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

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

解决Win8下IE10无法打开的故障 [简讯] Scala 2.10.0发布! 收购传闻:Apple一厢情愿还是Waze待价而沽 回顾过去,展望2013:移动开发引擎、工具和语言盘点 成本为0!Netflix开源工具Janitor Monkey清理AWS iOS开发者讲述在Google工作的三个月 GitHub历史上最糟糕宕机事故回放及反省 疑因竞争 谷歌有意让地图与WP手机不兼容 移动游戏开者必看:海外VC最关心什么? 淘宝UED:随侃设计师的个人素养 TIOBE 2013年1月:不负重望 Objective-C再次赢得桂冠! 大数据:商业或技术的挑战? 开源移动统计:Cobub Razor近期版本大升级 无人机应用,为何屡遭苹果拒绝 2013年Java继续火的五大理由 Rails所有版本都有SQL注入漏洞?其实没那么严重 如何设置Windows Server 2012 NTFS权限 智能手机大局已定 HTC难扭转乾坤? 比谷歌手表更酷!基于大数据分析的睡衣 众投资金:改变了移动游戏开发的一切一切 这些科技产品和革新或在今年“横空出世”?! 现代Objective-C七宗罪 Google工程总监Ray Kurzweil意欲打造“虚拟朋友” 惠普开源JavaScript框架Enyo更新:支持桌面和移动平台 分析:三星或将成为科技行业第五巨头 是真的 诺基亚真有可能推Android手机 如何打造IE10的指尖触碰式用户体验 SUSE全球OEM联盟总监:为何SAP HANA只选择SUSE? 推荐2013年最佳PHP开发框架 Patrick Wyatt:代码没问题 程序却有bug? NoSQL的可靠性及扩展操作 有没有按位图画不规则窗口的代码? 怎样得到LISTCTRL的全部列(COLUMN)的信息,难道要用GETCOLUMN()? 为什么现在学win32 API的人这么少? 还是老问题 redhat安装问题,请高手指点 网页中有一文本框,如何约束用户输入格式 现在fanso怎么回事? 安徒生童话之六---老爹做的事总是对的 (呵呵,好故事,很美丽) 如何调用EXE或DLL程序,使被调用程序是调用程序的MDI中的一个子窗口? 《网络设计师教程》P103表5.2中 4B/5B码和4位2进制之间是怎么转换的? COM进程类组件中,在一个接口中加了一个方法,成员变量类型CString,可是不行,那该用什么? 请问那里有 motif toolkit 开发工具下载 一个mysql的问题! 出售软件源代码以及销售权! byte类型的数据如何转化成二进制数,显示给用户(如8-》0000 1000) 代征:精通vc的深圳朋友,精通网络通讯的开发和多媒体处理。 20分求助!这条警告是什么原因呀?怎么解决 ?LINK : warning LNK4089: all references to "SHELL32.dll" discarded by /OPT:REF 局域网的文件共享传输是基于什么协议的? windows and dos ??? 请问大家几个技术问题!!谁能回答阿!比较着急!:) 有没有代替VB里的PICTUREBOX 的控件,VB里的不好用?????????? 我是新手,请问JSP有些什么开发软件?比如JAVA用JBUILDER。。。 请问知道整型值a=97,什么函数可以得到"a"呢?即97->"a"通过什么函数呢? 如何将十进制数转换成二进制数 函数对象的简单问题 喜欢仙剑的朋友请进。:) 恭喜恭喜? 我想制作C++ Builder4工程的安装程序,不知道用什么软件,请大家帮忙。谢谢! 请问大家几个技术问题!!谁能回答阿! 我是ASP初学者,请求一个简单的问题,Help!!! 有没有关于installshield6的书, 快看呀!我真的要不行了! 请教大家一个术语吧! 低手问题,关于Form中的数据问题,谢了。 如何用PictureBox控件显示GIF图?特急!!!!!! 单文档多视(急!) 想学delphi中关于database方面的内容,不晓得哪本书好,大家推荐好吧? “CSDN准备推出海外图书邮购服务,首批是侯捷的著作和译作” 什么时候可以开始? 谁能介绍一下嵌入开发领域比较成熟的产品?他们的功能、性能如何 关于Autocad字体的问题 在 ActiveForm 中如何初始本地数据模块!菜鸟问题! (const char *)&p转化为delphi语言该是什么? ####我拼了命也要问出这个问题的答案########## 怎样才可以描述点击窗口右上角的“x”时所发生的事件,请给个例子,谢谢了! 哪儿有Install anywhere 4下载 庆祝kylix2001,终于知道叫什么好了,耶………… VB,请问set obj=new class 和 dim obj as new class的区别????????? install anywhere 4 哪儿有下载? GGMM,向我灌水..... 如何截获视频卡串送过来的图像。 高级程序员,在weblogic上做j2ee开发半年多,jsp一年左右,求职。 500字《历史的选择》读后感作文 文章中一句话的含义?高手进!白云深处吉普车行了两个多小时,终于登上海拔两千多米的燕山主峰玉皇顶.纵目四望,八百里燕山,一派磅礴气势.河北电视转播台高高的井架直插云霄.我们正看得 父爱的作文300字要写生病了爸爸照顾你,下午必要, 关于历史的选择的作文800字 大师风范这篇阅读,从大师的沉默中你体会到了什么 父爱作文300字,要描写最动情的一个瞬间!就是写一个动情的瞬间,不要太俗气了. 紧扣历史的选择400~500字作文 大师风范阅读答案.2010—2011六年级的试题啊!照样子写词语 (技艺)高超 精彩的() ()高尚精湛的(琴艺) ( )高明 精致的()本文最后一句在写作方法上叫做 仅此一点3个含义中的第 求关于父爱的作文300字要精彩的 不要流水账 热牛奶的坚决不要 历史的选择作文 大师风范阅读答案 苏教版啊 五年级下大练第三单元测试卷的那个啊 急QAQ原文:一位世界一流的小提琴演奏家在为人之道演奏时,从来不说话。每当学生拉完一曲,他总是再把这一曲再拉一 写父爱的作文300字,只要300字可以的加悬赏分 历史的选择作文怎默写1500字 大师什么是大阅读答案 这一刻,我感受到了父爱作文500字 历史的选择作文怎么写?312321 请大师细腻翻译短文,题目也要翻译,谢谢 父爱作文 我想知道“历史的选择”作文怎么写? 作文:一个令人感动的瞬间(体现父爱或母爱) 关于父爱的作文.老师让我们写一篇 有关于父爱的作文,要体现出父爱的伟大,要有真实感受要体现父爱的伟大,要有真实感受,自己不得少于600字. 历史的选择整整800字的征文作文如何写? “一个令人感动的瞬间”为题,写一篇作文,歌颂无私的父爱或母爱.要求有具体的细节 求作文:我深深感受到了父爱的伟大!初三的作文,600字! 大师风范什么意思百度知道 描写父爱或母爱的好文章急! 有关父爱感觉描写的文章父爱感觉的,不要具体事例, 阅读大师风范中:仅此一点,足以称之为大师,句中的此指的是什么? 如何写关于母爱和父爱的作文?要500字以上!写一件事!适合四年级! 父爱的作文500字 概括《大师风范》,快. 父爱母爱的好文章要不长不短,通俗易懂,直点中心. 求:关于写父爱的作文 800字 求英语阅读答案,和文章的主要内容,具体私下沟通,高手来, 急需一篇描写父爱或母爱的感人好文章最好短一点(写作业要用),希望今晚就有~谢谢了~ 父爱的作文700-800字亲身经历 18米增加六分之一米后是() 18米增加它的6/1是() 甲数是108,甲数的3/1与亿数的4/1相等 乙数是() 一根20米长的铁丝,先用去它的20/3,再用去20/3米 还剩下() 应用题 有一份稿件,小明第一天 关于母爱和父爱的作文急需母爱或者父爱的作文,要通过一件事、一次批评等等,要在今天~ 关羽父爱的作文,800字 西游记中前十回关于描写师徒四人性格特点的主要内容. 母爱或父爱的作文 写一篇有关父爱母爱的作文 800字的 如何提高自己写作文的语言水平我现在上高二,每次作文语言都不够好,论据哪方面也了了,应该如何提高?看什么书比较好? -):-):-)求大师一一帮一帮 关于父爱或母爱的作文符合实际一点拉 怎么让我写作文的水平提高? 民族风范的作文 有关父爱母爱的作文!……………………………… 如何提高写作文的水平 大师风范中小提琴家为什么说”琴声是最好的教育“? 父爱母爱作文 如何速度写作文速度作文要认真先看好作文的题目,在认真的思考,想清楚在速度写! 大师风范中的小提琴家为什么说:琴声是最好的教育 关于父爱母爱的文章给哥哥哥哥哥哥哥哥哥哥哥哥哥哥哥哥 作文 《历史的选择 》 500字左右,要快讲的是抗日英雄的 急 谢了 上个世纪初,有一个犹太少年,他做梦都想成为像帕格尼尼那样伟大的小提琴演奏家.他一有空就练琴,可是,就连他的父母都觉得这个可怜的孩子拉得实在太蹩脚了,完全没有音乐天赋.有一天,少 有关父爱母爱的文章快 作文 500字 曾经在一本杂志上看到过一篇这样的文章,给我的印象很是深刻,队长杰克带领着他的队友们正在日常的维护铁路的检修工作,天气很干燥,工作枯燥乏味,杰克在这条铁路上已经工作了15年了,所 父爱300字作文我说的是父爱,而且一定要300字左右
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn