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

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

别再设计易碎的Web API! LinkedIn:55人支持2700位员工,2亿用户的大数据分析 Brian Krzanich是谁?这位新CEO预示英特尔未来怎样? HTML5开发者心声:浏览器兼容性成最大问题 传微软6月下旬将发布第二代Surface 7到9英寸全有 Turbulenz:HTML5 2D和3D游戏引擎开源 携程开放平台总经理夏天:内容+高转化率成就开发者 直接拿来用!最火的Android开源项目(一) Qunar 谌振宇:旅游行业的移动化如何布局? 大数据分析“铁三角”: Teradata数据仓库、Teradata Aster与Hadoop Teradata专业服务:打造行业企业的“数据科学家” Xamarin Evolve 2013:竭尽全力让C#服务iOS与Android 史上最全!57个Web框架4轮横向对比 回顾银行数据的可用性和一致性历史 Qubole:托管在AWS平台上的Hive服务 自由操作系统 Debian 正式发布7.0版本 4月份浏览器份额:IE 8仍居第一,IE 10翻番 亚马逊正式在华推Android应用商店 收入3:7分账 不要男孩,只允许女生参加的四所编程学校 下一波App机会在哪里? JS1K 2013优胜作品公布 3D蜜蜂仅获亚军 专访:前新浪网架构师徐佳转行卖水果背后的故事 FBI密码挑战,你能解开吗? 从0到1只需一天:Twitter后PC时代物联网“敏捷”开发之路的探索 机械生物已经面世 只少个“大脑”而已 百度正式宣布3.7亿美元收购PPS视频业务 比尔&#183;盖茨:iPad让人失望 用户需要Surface Dropbox将于今年夏天举办有史以来的第一场开发者大会 Clustrix Sierra分布式数据库系统:云计算时代的MySQL 英特尔出杀手锏 发布低功耗、高性能Silvermont微架构 10大最实用的Raspberry Pi扩展设备推荐 oracle9i的安装文件都有什么?望高之!急! 哪位有没有SCJP培训的录音或其他教学的好东西阿 MSComm控件在设计时运行没问题,但打包后装到别的机子老是出现“没有注册类”,求救? delphi 做的数据库应用程序如何移植?? copysign怎么用啊? 如何将一个网页的所有链接均自动加为绝对链接? 技术与数学的问题 本人写了一个设置纸张方向和大小的函数,其中MyDevMode.dmPaperSize = psize '若vbPRPSA3 设置纸大小为A3,但在VB对象库中找不A2张对应值 tomcat4.1.24中的sevlet问题 我下载了linux的iso文件,可怎么安装啊!! 我想问一下,有关于计数器的相关的信息? 救急:是否可以在两个页面(两个单独打开得ie浏览器页面)传递参数,如何实现啊? JDBC相关的两个问题 Oracle8.1.6怎样连接SQL SERVER2000 ?(在线等待) inserted表问题 急!!!关于FileSystemObject问题,在线等 dll 编译问题 请教 请教关于iterator与container? 谁有mixerAPI的中文资料,如(mixerGetLineInfo)我需要弄懂原理(不需要MSDN) 请问“怎么样才能修改以有的flash文件”,拜托,在线等待 如何使相同的子窗口显示一个? ?请教高手有关Align的问题。 高手帮我谢谢注释~~高分相赠~~~~谢谢高手~~~~ 各位大牛们,小弟想请教大家对FlowMIS这个平台有多少了解,用此平台进行二次开发(企业信息系统)好不好。 SQL SERVER2000 怎样连接Oracle8.1.6(在线等待) C语言程序设计 如何在英文字符集的客户端访问服务器为中文的数据库? 那4M是不是让诺基亚给偷了?! 如何调用ResetPrinter函数设置默认打印机 listview使用的问题 delphi的打包问题 请大家推荐一个短信网关 调查:当你身边响起神圣的国歌时,你会不会不由自主站起来,手放到胸前,跟着节奏一起唱起来?(有感而发) 请问如何调用.chm的帮助文件? 如何调用系统默认打印机的属性! 请教新手问题~~~麻烦哪为大侠给解释解释~谢~ 如何用struts实现阴阳色列表? 怎么用vb建立一个数据库呀?注意,不是一个表,是一个数据库! 如何调用系统默认打印机的属性! 一个很老很过时的数码相机。 郁闷,超级简单题目 初学ASP,请教学习心得 我的机器怎么老死机?? 两级表单动态联接?急,急,急!!!!!????? ---见了鬼了,Jre不好用!!!--- 寻求把中文字符串转换为十六进制的串的ORACLE函数? 电力学院惊魂 一條語句 數據庫日誌就寫滿了 怎样获得系统的字体!急!谢谢了! 谁有用java做的聊天系统程序(当作业)分不够可再给 在CB中如何动态的管理窗体 求出自论语的成语集合 求100个或以上,不用注释神马的,出自论语的就行了 有5盒糖,乙有4盒糕,值44元.如果甲、乙两人对换一盒,每人所有物品的价值相等.一盒糖、一盒糕值多少元 at the most等同于ultimately吗? 求氨基酸缩写与R基对照表如题文字的更好,省的我抄了谢谢 收集保护环境的句子我要求限时到6点,现在是3月3日 17:36计时开始6点到,555,我的要求没达到 6×4和6×2牵引车主要运用于什么运输,运输距离怎么样 Stamps这个单词是什么意思 一辆汽车绕一棵大树不停的开,且使车子与大树之间保持有20m的距离 司机应该怎样确定开车的路线 半挂车车头有6*4的和6*2的,这两种车各有什么特点 Component是什么意思 物理题一汽车行驶时遇到紧急情况,驾驶员迅速正确地使用制动器在最短距离内将车停住,称为紧急制动.设一汽车行驶时遇到紧急情况,驾驶员迅速正确地使用制动器在最短距离内将车停住,称 甲有五盒糖,乙有四盒糕,共值22元,如果甲乙两人对换一盒,则每人物品的价值相等,求如果甲乙两人对换两盒,甲乙两人所有的物品的价值是否相等?若不等,哪个多?多多少? vhdl中COMPONENT是什么意思谢谢 谁的胳膊比腿长(动物) 婷婷有5盒糖,佳佳有4盒糕,共22元,两人对换一盒,每人所有物品的价值相等,一盒糕,一盒糖分别多少元? component repository是什么意思 动物生出来 有没有却胳膊少腿的? 200以下求推荐偷窥女生宿舍的望远镜,求清晰女生宿舍距离差不多不到100米,平常也看看运动会演唱会什么的,没办法不是我屌丝,是有一群屌丝舍友……总之就这样吧,不要太贵了. For nearly a day they waited for an answer,only____to cime again next day.A.to be toldB.being told 哪些动物有胳臂 影子的方向随着什麽的方向改变而改变?(一定要正确!) 屋顶上的鸽子在"咕咕"的叫着.改成拟人句提前声明:前面有三个例题:::::小鸟在树林里唱歌;蟋蟀们在这里弹琴;蚊子在到处吹着喇叭. pig-headed 的 英文释义 什么动物没有嘴,却可以吃东西? 为什么我安装东西安装了一半总是出现destination component 下午放学回家,小明做作业,开始时看见钟面上分针略超过时针,完成作业时,发现分针与时针恰好互换位置,那么小明做作业用了多少时间? 高中在差班,努力学能考上北大么或复旦. 建筑物的体积规模是哪一个词语的意思啊 “艰难困苦,玉汝于成”解释 嘴张得大的动物,猜一下是哪只或哪几只,谢谢啦 飞行最远的是什么鸟? gssg是什么氨基酸的缩写或者什么肽键什么的 某人家有两个旧钟,一个每天快20分钟,另一个每天慢30分钟.现在将两个钟同时调到标准时间,问至少经过多少天两个钟同时显示标准时间? 外滩Bund应怎样发音?是发短a的音,还是u的音? 小学数学教科书的公式,只要是由什么方法得到的 艰难困苦,玉汝于成 Bund前用什么介词, 甲有5盒糖,乙有4盒糕,如果甲乙两人互换一盒,则每人所有物品价值相等.一盒糕,一盒糖值多少元?列出算式 时钟的指针在四点和五点之间,何时成直角?(我会列示但是不知道意思,必有重谢!)得的得数是分数,看表看不出来! 求初中数学奥林匹克竞赛定理最好是全的!例如:梅涅劳斯定理,塞瓦定理,相交弦定理,切割弦定理,蝴蝶定理,托勒密定理,欧拉线,正弦定理,余弦定理等等及它们的逆定理………韦达定理等著名定 怎样在PPT的模板中加入公司的log?导入的步骤是什么? 这是什么动物,腿还挺长的,说的仔细一点他吃什么 Spring注解是什么啊 not only is a stupid women,but also is a stupid pig 艰难困苦 玉汝于成阅读答案 JAVA Spring一段注解求解释 怎么在ppt中弄企业log? 一面钟的时针长15厘米,分针长18厘米,一昼夜分针与时针的尖端所走路程比是多少? 精尽人亡是什么意思啊? Forever stupid pig ,this is my loue 9.“艰难困苦,玉汝于成”这句话告诉我们的道理是   A.要想取得成功,就应主动去寻找困难和挫折   B 求《论语》全篇翻译 深圳靠近海的地方哪里好玩? 艰难困苦,玉汝于成 是什么意思 建筑体型组合有哪几种组合方式 为什么靠近海的地方温度差异很大 1.在10点与11点之间,两针在什么时刻成一条直线?2.从中午12:00(不含这一时刻)到晚上12:00,(包含这一时刻)这12个小时中,时针与分针共重合了多少次? 怎么快速而长久牢固的记忆20个氨基酸的3字母缩写? 三路车和六路车的数学问题金城路是3路车和6路车的起点站,3路车每隔5分钟发一次车,6路车每隔3分钟发一次车.两路汽车同时发车后,至少再过多长时间又同时发车? 一、阅读第六课《向往奥运》的第五自然段,回答下列问题.1.作者怀念爱放体育明星的那些日子,是因为_________________________________________________________________.作者渴望2008年北京奥运会到来的时候, 盘点基层干部“怕”事心态:图太平念“近七成受访者反对延迟退休 73.5%官员否认“血站卖血给药厂”:全供医院专家:腐败及腐败带来分配不公问题仍是奥巴马豪华座驾“野兽”细节曝光 可抵律师申请公开转基因信息被驳 称将诉农奥巴马豪华座驾“野兽”细节曝光 可抵医生举报副县长公款旅游 开发商10万黑龙江非转基因大豆产区面积锐减 九成伊拉克发生多起暴力袭击致24人死亡美国去年吸引外国直接投资1660亿美美潜入雅虎谷歌狂盗数据以色列释放第二批巴勒斯坦囚犯陕西副县长被指公费出国游 纪委调查至澳使馆为美国搜集亚太情报\"诈弹\"威胁长沙机场疑犯被抓 频美使馆疑用这个“白盒”监听军事专家:极易致误判误撞和擦枪走火冷战游戏 蓦然重现空气污染致癌 波兰向碳排放开刀斯诺登谋得俄网站工作用筷子十五忌,国人不可不知!你的小米手机、手环可以控制美的空调了中国建筑,震撼之美(二)P2P大数据征信根本就是错的新型城镇化试点64地区名单确定 你家那些不读书,不运动,没有性生活的中国2015年,万家P2P指日可待,更可甩开负担,带上华为P8max一起轻松职业经理人已死、事业合伙人时代诞生韩服《剑灵》推爆乳新时装 金亨泰风格深度思考比勤奋更重要陈年:凑热闹的公司都会烟消云散新浪、搜狐都出事了,互联网大佬做金融刘强东可以,马云不可以你不懂我。真的。魅族 MX5 上手:魅族终于被岁月磨反腐过头了?魅族 MX5 发布会总结:1799 “天天说钱”作者刘晓博,荣获凤凰网2出租车模式之变:赎买还是流血(原创)no zuo no die!!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘