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

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

别惊讶,Android绿色机器人标志灵感来自于卫生间标识 Google TV更名为Android TV 智能电视的路不好走 CTO如何避免决策失控(四)——通盘考虑 做到技术业务不分家 重塑世界!历届MDCC重磅嘉宾演讲大回顾 从贝佐斯的14句言论看商业成功之道 5大宠物可穿戴式设备 Google CIO Ben Fried谈内部工具文化 【开源专访】Fourinone创始人彭渊:打造多合一的分布式并行计算框架 API优先架构或者胖瘦服务器之争 Windows Phone 8迎来Update3更新:支持更大屏幕 更多磁贴 AMD院士站台 异构计算与OpenCL编程师资培训首站清华开讲 Twitter、Square开创者Jack Dorsey的奇趣人生 利用CSS、JavaScript及Ajax实现图片预加载的三大方法 经典电影里的数学 15亿美元!软银联合GungHo收购手游巨头Supercell Oracle“炮轰”开源:称其永远无法在军事领域取得一席之地 零客户端:下一代计算分布模型 苹果聘奢侈品公司巴宝莉CEO Angela Ahrendts为零售主管 看看你会几个?9大最火的移动开发技能 为了进一步拴住用户:传亚马逊与HTC合作开发智能手机 三年?又三年!今年MDCC2013大不相同! 杨远骋:聚美优品与百度云推送的故事 糗事百科王坚:百度云推送让我们省心 10个最热JavaScript开源框架的社区活跃度对比 2013福布斯中国富豪榜:李彦宏第三、马化腾第五、马云第八 Storm又获东风,Hortonworks计划将其整合到Hadoop企业版 IBM CEO:预测高新技术 五个我最喜欢的方式 我伙呆,硅谷高级工程师年薪16.5万美金起 羡煞旁人的Supercell:Clash of Clans卫冕营收榜冠军 谷歌第三财季利润增36.5% 但摩托罗拉业务继续亏损2.48亿 针对应用开发者的几点建议:注意特征蔓延、加大用户评审…… 为什么这个程序老是更新时间?怎么才能让它一条一条的增加记录? 请大家发表意见! 关于PB中DW对象中的列的问题: Oracle816里面无法加入日期类型数据 有没有现成的函数,可以把一个int64整形数转换成带逗号的字符串? 如何在CTreeCtrl收到TVN_ITEMEXPANDING消息时,得到是哪一个TreeItem被展开? 各位高手,关于输出日期的问题!!!!!!急盼解决!!!! 想自己做个分销系统(jsp+javabean+mysql) 连接时错误,重定义问题 祝水圆兄弟姐妹们节日快乐!嘿嘿! 关于木马的问题 在DELPHI的图象处理中,怎样将GIG转成BMP或BMP转成GIF,各位大虾帮帮忙! 谁有SCO OPENSERVER开发平台的Licence? [给分]请 playking(风雪青松) 来拿分 我的朋友有一个很急的问题! 如何在DELPHI中使用RealSystem Producer ActiveX Control 100分求winsock pbl(pb7.0) 菜鸟问题:一个关于api的别名问题!谢谢!!! ===菜鸟系列===:CSDN上没人了吗?为何无人能回答我的问题???????????? 请教:SQL中动态数据表如何进行查询? 如何将object转化为int?? 讨论:你是从IDL开始所有的编程工作吗? 修改弹出的OPEN对话框? 第二个页面中的FORM怎么传值给第一个页面的隐藏控件?不用SUBMIT 在LotusScript中,如何实现将附件保存于服务器的某目录下? CSDN说这里人气低,决定关了这里,大家快来说话啊,真关了我们就没地方说话了 如何将int转化为char? 如何实现窗口中拖放. 如何确定一个数据窗口有几个参数 数据库程序的运行环境问题求救!!! 寻求vb例程 如何用VB6控制NT的服务 try和catch的问题? 求助~!关于FileListBox的问题 请问要在Web页面中放置ActiveX控件,是不是一定要数字签名才能在客户端安装? 表格内容对齐 where can download the crack about Rational XDE Professional v2002 .Net Edition? 调查:现在大家所用的中文输入法是什么?录入速度是多少? 数据库程序的运行环境建立问题求救!!! 伙计们,帮我看看我的安装差在哪一步了,为何多系统下Linux起不来 如何将文件输入流转化为string? 关一个Servlet调用另一个Servlet的问题 有关报表的一个小问题。 怎样才能做繁体版? 100分请教PHOTOSHOP5.0是如何把CMYK颜色转成RGB显示的? 需求进销存或分销 如何替换某字符串中的指定字符串!!! tcp/ip 如何获取文件的创建时间? 如何再98中删除IE的历史纪录,很怪~~~~~~~~~~~! 讨论:从IDL开始所有的编程工作 征文《我爱我的家乡——曲沃》 急需一篇元宵节的作文,300字好, 以信的形式写奥运征文 我爱我的家乡木兰围场征文 一定以最快速度给我! 你去过热闹的菜市场吗?菜市场里还有哪些蔬菜?他们生活在哪里?请仿照上面的句子写两句话.热闹的菜市场,是蔬菜们聚会的地方.金色的南瓜说:我来自高高的南山坡上;弯弯的菱角说:我从 一次测验中全班学生的平均数分为72分,已知及格学生的人数是不及格学生人数的4倍,及格学生的平均分是80分,问不及格学生的平均分为多少分? 我爱我的家乡 沈阳,征文我爱我的家乡,征文,才子才女谢~ 杭州市最大的蔬菜批发市场是哪里?是不是所有的蔬菜都从这里出去?我想找杭州市最大的蔬菜批发市场 最好是杭州很多农贸市场都从这里进货 某次测试,全班平均分为77分,及格率为90%,及格学生的平均分数为80分,问:不及格学生的平均分是多少? 好词好句好段摘抄 初中之描写心理活动 (菜市场蔬菜可真多 萝卜 青菜 黄瓜 西红柿 应有尽有) 请给这句话加标点 描写城市繁华夜晚,寂静夜晚的句子注意,不要诗句诗词,是现代的 菜市场的蔬菜真新鲜啊!有的……;有的…… (1)男生有20人,男生比女生多14人,女生比男生少百分之几?女生占总人数的几分之几?(2)连续三个自然数的和是210,这三个自然数分别是几?列算式吧, 征集描写城市夜晚的句子 能充分体现出城市灯红酒绿的样貌 和物质追求 最好是带点忧伤的感觉 以“农贸市场的蔬菜真新鲜啊”为开头,续写一段话. 语文把句子写具体.数学家陈景润是一个不知疲倦的人.______________.高大挺拔的树木给城市带来了许多好处.____________.(老师规定每题都写40个字.如果只想得出一道也发上来吧,) 带有好词好句的写人作文有吗? 菜市场里的蔬菜各种各样.(选择其中一种蔬菜,用两三句话进行描写,用上拟人或比喻的写法) 照样子,写句子.要是没有了鼓声,音乐会变成什么样啊!没有节奏,没有深度,没有灵魂.照样子写排比句!不对,不是排比句! 自我介绍 300我叫张蜜 15岁 爱音乐 爱运动 座右铭:宽容别人是尊重,宽容自己是放纵.小眼睛,个子不高,1.58 喜欢狗 在太湖县新仓镇中学读九年级 大家帮我找一下含有优美的开头或结尾的文章要求列出开头或结尾就行了 越多越好特别注重环境描写,或者有深刻含义或富有哲理的麻烦各位GGJJ, 描写蔬菜的句子 一批产品的合格率是百分之九十五,表示()占()的百分之九十五 小梅书房的地面是长方行形的,长3米,宽2米.用面积是4平方分米的地砖铺地,一共需要多少块? 描写校园景色优美的四子字词语 一箱灯泡有20个,灯泡的合格率是87.5%,则从中任取一个,是次品的概率是多少? 小梅书房的地面是长方形的,长3米宽2米.用面积是4平方分米的地砖铺地,一共需要多少块? 有关寒假发生的事情的作文 一箱灯泡有45个,灯泡的合格率为92.5%,小刚从中任意拿出一个,拿出的灯泡是次品的概率为( ) 小梅书房的地面是长方形的,长3米,宽2米.用面积是4平方分米的地砖铺地,一共需要多少块? 我爱我的家乡营口的征文!急要求600字,写得好会参考一下 一箱灯泡有24个,灯泡的合格率是87.5%,则小兰从中任意取出一个次品的概率是多少 小梅书房的地面是长方形,长3米宽2米,用4平方分米的地砖铺地,一共需要多少块, 装修房屋时客厅铺地砖好还是铺地板好 某批灯泡的合格率为0.5,用中心极限定理求10000个灯泡中合格灯泡数在4800-5200的概率.(Φ(4)=1) 小梅书房的地面是长方形,长3米,宽2米,用面积是4平方米的地砖铺地,一共需要多少块? 家里想装修,我想铺地砖,地砖尺寸如何选?我喜欢1m*1m的可装修师傅说房间小不适合我家主卧11m2 ,次卧6.6m2,客厅14m2,厨房卫生间5m2 哪位高手给指点一下 小学作文中的好句子,不要太深奥 保护环境 爱我家乡 征文700字 作文内容:寒假中有什么意义的事?作文要求600字以上. 求写人的作文!要多好词好句!求写人的作文,那作文要有很多好词好句!拜托了! 看材料,写作文,800字左右材料:一个生物学家在一家农场见鸡群里有只老鹰,于是问主人:“为什么鸟中之王,会落魄到这般与鸡为伍的地步?”主人说:“因为我一直喂它鸡饲料,在鸡舍里长大, 雨下得真大呀,把句子写具体 一箱灯泡24个,合格率为87.5%,则从中任意拿出一个灯泡是次品的概率是?一箱灯泡24个,合格率为87.5%,则从中任意拿出一个灯泡是次品的概率是[ ]A.11.5%B.87.5%C.13.5%D.12.5%答案是12.5%,但是我不懂 求教写作文.假如我是().半命题的高中作文,800字左右补充下。要是动物。 写菜场的诗句 一箱灯泡有24个,合格率为百分之八十,从中任意拿一个次品的概率为多少? 高中写作文一般写多少字 如果它说写600字左右的作文我写800子能打0分么? 班级,我能为你做什么作文500字 描写人物的作文的好词好句 描写活动的好词(20个)好句(5个)好段(2个)今天就要拉! 发几个300字左右的作文素材 关于人物的描写,好句,好词,作文 男同学是女同学人数的百分之八十,一次数学测试,全班平均分是92分,女生平均分是96,求男生的平均分.加工一批零件,师傅单独完成需要30天,徒弟单独完成需要40天,现师傅徒弟合作,完成时发现 早晨菜市场热闹的场面抓住特点 求书信格式的奥运征文900字以上 我爱我的家乡沈阳征文800字以上一定要是沈阳的800字以上的混经验的滚 菜场真热闹(写具体) 我的奥运梦想 征文 (书信格式)
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘