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

用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平台,看W3C如何反击? 电信级数据流量与监控系统部署案例分享 TCL联手Mozilla,HTML5智能电视真的要来了! 先睹为快:Unity亚洲开发者大会虚拟游览展示 OSTC&#183;2014 演讲日程出炉,Perl创始人来了! Unity将收购Applifier,并引入Everyplay和GameAds两大平台 《近匠》从Cubieboard到radxa:汤亮的第二次硬件创业 九头蛇与大象之争,Hydra或将取代Hadoop 喜讯:中国安全团队Keen成功在Pwn2Own 2014黑客大赛上攻破64位Mac上的Safari OCP黑客马拉松冠军:24小时头脑风暴背后 新时代应用程序设计及MongoDB的十个深入理解 借助“开源”东风 英特尔打造卓越“软实力” 深圳综合交通设计研究院张鹍鹏:智能交通设备领域已成红海 信息化是发展趋势 25个可遇不可求的jQuery插件 Web设计中对视差设计的误区 直接拿来用,九个超实用的PHP代码片段(二) 一周消息树:小米染指平板电脑凶多吉少 移动周报:Xcode 5.1更新、CarPlay揭秘,Apple很忙 可穿戴领域,创业公司的掘金点?还是滑铁卢? 搜狐SendCloud2014运维技术沙龙拉开帷幕 一周热点:选择Go语言的12个理由,九头蛇与大象之争 中国云计算大会PPT集萃(二):十位技术大牛分享平台打造技术 延迟250毫秒损失数百万美元,Hadoop系统该如何应对实时任务 IBM成立展示中心扩展大型主机的Linux开放生态系统 SDN解决方案总结:OpenFlow、虚拟机、OpenStack和VXLAN/NVGRE 第六届中国云计算大会将于5月20-23日在京隆重召开 大数据实战:站在JMP分析平台上的FIT足迹识别技术 首届SAP d-code大会在上海举办 【OSTC讲师专访】ZoomQuiet:因商业化而开源是中国开源界最大的囧处 亿元资金扶持+联手100家VC,腾讯的雄心壮志 美国史上最大IPO 能给阿里巴巴带来什么? 给无向图着色的问题!请各位大侠帮忙!! 急!!c1001错误 c1001错误怎么办? 一个关于用VC6开发3ds插件的问题?! 请推荐个好的代理软件~~顺便请教一个域的问题 有谁用过lddj????请教请教。 为什么很多搞程序的讨厌3721? 为什么我做的个人主页 用google 或则用 yahoo无法搜索到 如何用pb65实现拨号功能,最好有例程,多谢!!!! 服务器端脚本和客户端脚本,优先使用谁?前辈指教 如何删去页眉的那条横线? 网络编程的迷惘 如何做好项目经理?要具备哪些条件?注意什么?根据人气我会重复开贴 关于多台电脑的串口通信,请高手执教!!!!!!不够可以在加!!!! 请问如何实现两个select的动态对应。 如何将文本框中的文字垂直居中显示? 诚聘vb.net软件开发人员 急:怎么查看oracle 的encoding参数? 关于多台电脑的串口通信,请高手执教!!!!!!不够可以在加!!!! 各位大侠,我想用VB实现多线程,如何做?小弟在线急等,QQ:19671554 关于多台电脑的串口通信,请高手执教!!!!!!不够可以在加!!!! 各位大侠,我想用VB实现多线程,如何做?小弟在线急等,QQ:19671554 SimpleObjectBroker问题 我的报表需要打印"接下页" 猜字游戏 小弟载了一个教程,里面的文件扩展名是pdf的,请问要用什么软件打开啊? 求教一个简单的问题。关于打包。 在线等。在线等 关于函数 ASP.NET中操作EXCEL,为何添加操作可象操作ACCESS一样没问题,而删除和更改操作却出错?100*n分for your answer 求助:如何调出linux下kppp源代码? www.clpclub.com是不是不能上了? 如何制作登陆窗口? 关于中大型网站如何应用软件工程的问题 求救高手,如何使双硬盘同步写 请问怎样在用户点击(s)后将用户点击的软件自动安装到用户(c)的机器上 请问如何用网站提供的搜索引擎,知道查找关键字,我用的是WebBrowser1,100分呀 tomacat的配置问题?急 学过严蔚敏的〈数据结构(C语言版)〉的请进! 开发过nokia上运行程序的朋友,请进来,本人遇到一个非常麻烦的问题,欢迎各位赐教. 如何从字符串中提取单词? 谁知道那里有longhorn下载??? 100分请教实现播放列表的思路? 有关图形化公交车线路的问题!! 关于网站软件工程的问题 我的sqlserver 2000 在安装的时竟然说什么不支持??? 免费ASP空间申请 有关用Firework作网页模板的问题-急! 大虾请指点~~!!~~ 如何固定游戏中的分辨率? 今天见到了蓝心MM,估计她是CSDN有史以来最PL的MM。 也来贴一篇!!!送给大学毕业几年的哥们!(转) 要说明几组实验数据之间的关系应该改用什么数学分析方法?有一百多组实验数据,像溶液测得的阴阳离子,微量元素离子,每一个水样测这些内容. 乐用五笔怎么打? 若(x+2)和(x-3)都为x^3+px^2+qx-18的因式,试求p,q的值 他说话很尖锐,常常会让人下不了台.尖锐的意思 高二物理第一章所有公式及其变形公式! 下列关于相同物质的量的SO2和SO3的说法正确的是, A硫元素的质量之比为5:4, 为什么A不正确? 常用的数学分析方法有哪些?我是要处理一些人文类数据,总结规律,预测走向 如果想快速提高成绩,该怎么办? 分解因式:x^3+px^2+px+p-1 他说话很尖锐,常常会让人下不了台.一句中尖锐的意思 酸碱恰好完全反应是什么意思?若是说恰好反应就是指酸中所有H+(不管有没有电离出来)和碱中所有OH-(也不管有没有电离出来)完全反应,生成相应盐溶液,显对应盐溶液的酸碱性.那么盐水 什么是电负性?亲和性又是什么?It is still blur-blur,not clear enough to distinguish electronegativity from affinity.More confused with electropositivity and affinity.Thanks anyway. 初中数学 数据的常用分析方法有哪些?详细点 从酸碱溶解性的角度出发,化合反应发生的条件是什么如题 谢谢了 瓷砖检验国家标准! 怎么说话变得很犀利,一针见血的那种. 16.17. 国家标准怎么认定?就是怎么说一个产品符合国家标准?我自己按照国标设计个产品,就算是符合国标吗?还是需要认证什么的,懂的人详细说下 地块HTP层次分析方法是什么 把100ug/ml的某物质溶液A稀释至溶剂B里,要得到10ppm的最后浓度,应该怎么稀释?(ug/ml是微克每毫升,微 对于质量相等的SO3和SO2中,下列关系正确的是:DA.所含氧原子个数比为3;2 B所含硫原子物质的量之比为1:1 C所含分子个数比为5:4 D所含分子个数比为4:5 为什么选D、求解释还是、其他三个错在哪 KF,KCl,KBr三者熔点大小 酸性条件下,snso4与双氧水反应 由于笔记本丢失很多化学方程式都丢失了在此请各位化学高手帮助要初中和高中全部化学方程式一定要全面 一些不常见的也要 Na的熔沸点比KF的高 原因是?额 NaF 问几个高中化学问题!1.甲醛和丙醛是不是互为同系物2.乙烯怎么制乙二醛和乙二酸? 中国医科大学挂科.补考通过率高不.大一下英语挂了. 现有KCl、KBr、KI、KF四种溶液,只用一种试剂即可鉴别,这种试剂是A.AgNO3溶液 B.BaCl2溶液 C.石蕊试液 D.酚酞试液化学一窍不通了已经... 假设溶液中,存在浓硫酸和浓硝酸的混合液,物质的量浓度都一样,然后投下金属铜,两个反应会一起进行吗?生成的铜离子一定是各自一半的吗?比如说下面这题:Cu2S与一定浓度的HNO3反应,生成Cu(N 核外电子排布每层怎样推导 有关电离能电子亲和能和电负性周期表中电离能最大和最小,电子亲和能最大的元素,电负性最大的元素,主族元素第一电离能大于左右相邻两个元素的元素 1.(选择)下列有关烷烃说法错误的:A烷烃分子中,所有化学键为单键B所有烷烃光照条件下都与CL2(氯气)发生取代反应C烷烃分子通式为CnH2n+2,符合该通式的不一定是烷烃D随这碳原子数增加,烷 用分解因式计算:分子是2002^2-2*2002^2-2000 分母是:2002^3+2002^2-2003 将药品装入试管 操作错误造成的后果 高锰酸钾粉末进入_______ 填空 酸碱会加快过氧化氢的分解吗 初中必备化学方程式 詹天佑课文概括 高中物理17题求详解 是什么 课文詹天佑的5.6两段可概括为什么? 具有相同数目氧原子的SO2和SO3下列关系中一定正确的是:A:n(SO2):n(SO3)=3:2B:v(SO2):v(SO3)=3:2c:m(SO2):m(SO3)=6:5D:Mr(SO2):Mr(SO3)=5:41.为啥呢?2、Mr是摩尔质量还是相对分子质量还是? 哈尔滨理工大学大一上学期英语挂科率 为啥C的电离能低于N而其电子亲和能也高于N呢?我觉得好像这两个量一般是“反”的吧…… 关于酸碱反应的具体情况求详解 学高中化学初中的化学方程式要不要背? 【化学竞赛】怎样理解电子亲和能在数值上比电离能小一个数量级 关于SO2和SO3的说法错误的是:①都是酸酐,②与水化合都能生成相应的酸,③都能与碱反应生成正盐或酸式盐,④标准状况下都是气体,⑤都有还原性 C(H+):C(OH-)=1:10²是什么溶液 有一纯净的亚硫酸钠晶体因部分被氧化而变质,为了测定样品中杂质的质量分数,现进行以下实验过程.请回答 Ulah,Bluebird,the car he was driving,had been specially built for him.句子成分 关于酸碱反应问题欲使0.1mol每升的碳酸氢钠溶液中,加入饱和石灰水溶液,为什么氢离子浓度,碳酸根浓度,碳酸氢根浓度都减少…要详解, 看到小动物受伤了, 激烈是什么意思 碳与酸碱反应 在132页口语交际,小明怎样说服爸爸的?生活中,还遇到过哪些伤害动物的事 15 16 17题 高中物理 谢谢各位亲 设f(x)被x^2-1除後的余式是3x+4,已知f(x)有因式x,若f(x)被x(x^2-1)除後的余式是px^2+qx+r,则p^2-q^2+r^2=?要完整过程! 讲话时如何能做到一针见血? “电离能大的元素,其电子亲和能也大”.这句话错在哪里?请举例说明. 相同物质的量的SO2和SO3相比较,下列叙述正确的是A.分子数之比为1:1相同物质的量的SO2和SO3相比较,下列叙述正确的是 A.分子数之比为1:1 B.所含O原子数之比为2:3C.原子总数之比为3:4 D.S原子 美国57万人联名上书抗议情报监控(图查尔斯的阿Q精神?中国游客成韩免税店最大主顾法一残障人士欲跳伞飞越珠峰调查发现60%的杭州家长认为孩子学习杭州连晴日子灰霾难散 几乎天天轻度污杭州错时停车推行5年难度越来越大西湖5处码头装避雷针 外包仿真藤青灰杭州本周上半周晴天下半周进入阴雨模式杭州近期昼夜温差超10℃ 早晚记得添意大利女画家作品武汉展出 观众:口味安倍要当亚洲反华“舵手” 借阅兵喊展安倍:为世界贡献途径之一是在亚洲抗衡外媒解读三中全会中国即将进行广泛改革中日学者激烈交锋 钓鱼岛问题差异难以日媒曝美国曾向日本求助“监听中国光缆德媒爆出内幕:默克尔电话2002年就美媒:美是全球不多的超级大国 不得不美媒:安倍把日本带向一个不屈服于美国美媒:安倍讲话相当于给中国人“当面一捷克议会提前大选共产党可能重回执政地未来三天江南东部华南东部有强降水 局美职篮明星约翰沃尔开启中国行西班牙青田同乡会举行第六届换届就职典蒙古OT矿董事会主席:OT矿将继续加吉林:进城落户农民享受与城镇居民同样内地2000多县级领导班子专题民主生保安搭上寂寞少妇获赠裸照 敲诈16万爱心暖凉秋 浙江东阳遥寄云南鲁甸灾区广东警方出台办法奖励民众举报涉枪涉爆重庆五大功能区将实施差异化的环保政策全国千余名青少年青岛竞逐航海模型总决朱立伦:许多人为了选票不择手段扭曲政从辞职变成法办 民进党:马英九须说明男子电话“呛杀王金平” 台北警方加强中方参演部队准备就绪 首支女子特战连伊安全部队再度向提克里特发起反攻山东省老年人口突破1700万 逐步提山东推行居住证 力争逐步实现公共服务重庆酒宴后暴力性侵致女子死亡案施暴者重庆推荐10条精品自驾游线路新疆昌吉回族自治州将举行成立60周年
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘