如何用delphi制作windows屏幕保护及时钟程序,可否email告之?(50分)

  • 主题发起人 主题发起人 aya.h
  • 开始时间 开始时间
A

aya.h

Unregistered / Unconfirmed
GUEST, unregistred user!
&nbsp; &nbsp;请教各位高手如何用delphi制作windows屏幕保护及桌面时钟程序,可否email告之?<br>email:aya_h@371.net<br>
 
发过去了!
 
实际上Windows的屏幕保护程序也是一个可执行文件,只不过扩展名是 .SCR而<br>不是.EXE。但是它也应满足一定的要求,以便提供给控制面板合适的接口。使<br>得用户可以在显示器的“属性”中选择和配置它。
 
便一个可执行程序。后把*。exe 格式改为*。scr<br>例如<br>procedure Ttime。ontimer 事件中<br>begin<br>lable。height:=lable。height+10;<br>lable。wideht:=lable。wideht+10;<br>end;<br>把 ttime 控件的 interval 设高一点。
 
你能email给人甲酚?
 
就像上面所说的,屏保也是一个应用程序,只不过做屏保的时候<br>需要考虑几个问题:<br>&nbsp; &nbsp; 1。preview的问题。也就是说,你的屏保应该可以在“显示”<br>属性里屏保页的窗口里看到运行效果。<br>&nbsp; &nbsp; 2。设置属性。也就是说,在上面的那个属性页里的“设置”<br>按钮可以设置你的屏保的一些属性。<br>&nbsp; &nbsp; 3。退出问题。也许你回觉得这个很容易,响应一切消息就可<br>以了。但是要注意,屏保退出的时候要检测是否设置了密码保护,<br>若是,则程序还得先询问密码,密码正确才可以退出。这个需要<br>涉及到一些windows的api的调用。<br>&nbsp; &nbsp; 我做过一个屏保,但是却望了具体的函数了,下次再贴给你吧。<br>&nbsp; &nbsp; 其实,一个屏保应该考虑的不光是上面的三个问题,还要注意<br>一些非正常的退出屏保的情况:(
 
难道没收到??
 
我正在做.等好了给你发一个DEMO.
 
to NBA<br>&nbsp; &nbsp; &nbsp;能给我也发一份吗?<br>&nbsp; &nbsp; &nbsp;liangguowei@yeah.net
 
我也想要一份<br>谢谢。<br>riverzjs@263.net
 
关键是主程序上的写法。<br>如下:<br>program scssen;<br><br>uses<br>&nbsp; Forms,SysUtils,<br>&nbsp; Save in 'Save.pas' {Form1},<br>&nbsp; Unabout in 'Unabout.pas' {about};<br><br>{$R *.RES}<br><br>begin<br>&nbsp; Application.Initialize;<br>&nbsp; if UpperCase(ParamStr(1))='/S' then<br>&nbsp; &nbsp; Application.CreateForm(TForm1, Form1);<br>&nbsp; if UpperCase(COPY(ParamStr(1),1,2))='/C' then<br>&nbsp; &nbsp; Application.CreateForm(Tabout, about);<br><br>&nbsp; Application.Run;<br>end.<br><br>当参数为/S时是系统通知启动屏幕保护。<br>当参数为/C时是系统通知启动屏幕保护设置程序。<br>编译后改扩展名为 .SCR<br>到于FORM中如何作是图形和动画技巧的事了。<br><br>我给别人编了一个屏幕保护的例子,是最简单的了。<br>在黑色的屏幕上随机出现一些星星,又随机的擦除。<br><br>
 
我也想要例子,给我一份啊<br><br>andyyau@wx88.net
 
me too.<br>gwd616@china.com
 
我给你给时钟程序吧---定时关机
 
请给我一份吧<br>zw_zhao@163.net
 
我以前也试过做屏保,<br>但是不太会把预览输到WINDOWS的“显示”<br>属性里屏保页的窗口。<br>请问这是如何实现的?<br>
 
我又要一份<br>liaodd@163.net
 
me too<br>wfzkh@21cn.com<br>
 
一个飞碟屏保,要吗?
 
至尊宝:有代码吗?<br>&nbsp;foxnt163@163.net
 
后退
顶部