93523.htm

在天极网上发布的各类delphi原码及技巧文档

else......//发现有同一窗体重复运行
......
</pre>
<p><fontcolor="#ffffff">　　</font>注意：由于Dephi在设计窗体时已向Windows登记
了TMyScreenSaverForm窗体，若在Dephi调试器内运行该程序，FindWindow函数会发现已有
一个窗体，它会执行else后面的代码，调试时应注意这一点。如要使该程序顺利运行，须先
执行File菜单中的Close命令，将TMyScreenSaverForm窗体关闭掉。
<p><fontcolor="#ffffff">　　</font>3、SCR的鼠标：
<ul>
<li>显示/隐藏鼠标：SCR有时运行中应能隐藏鼠标，可用API函数ShowCursor，该函数：int
ShowCursor(BOOLbShow)。bShow是一个布尔类型变量，取False值隐藏鼠标，取True值
显示鼠标。<br>
<li>取鼠标位置：取鼠标所处位置可用GetCurSorPos过程，原型为：GetCurSorPos(MousePos：TPoint)，MousePos
为鼠标所处位置。SCR一旦在捕获鼠标移动消息，就将当前鼠标的位置与已保存的位置比
较，计算出鼠标移动的距离。</li>
</ul>
<p><fontcolor="#ffffff">　　</font>四、捕获鼠标与键盘消息：
<p><fontcolor="#ffffff">　　</font>SCR运行后，按下、移动鼠标或敲击键盘都应立即
作出反应，中断程序运行。这有两种办法可解决。一是在窗体所有与鼠标、键盘有关的事件
内加入Close过程，如OnMouseMove、ONKeyDown等事件。这样一旦用户移动鼠标或按下鼠标（
键盘）都会关闭程序。这种方法简单易行，但有一个缺陷，按鼠标中、右键却不能关闭程序。
二是使用Application对象的OnMessage事件，我们可为该事件定义一个处理程序，以捕获
传递的消息，捕获消息后判定消息是否为鼠标或键盘消息，如果是，就决定是否关闭程序。
假定CloseSCR是用户编写捕获消息程序，要先设定Application.OnMessage:=CloseSCR。
捕获鼠标、键盘就关闭SCR的程序如下：
<pre>procedureTMyScreenSaverForm.CloseSCR
(varMsg:TMsg;varHandled:boolean);
varx,y:Integer;
begin
caseMsg.messageof
WM_MOUSEMOVE:begin
//以下为鼠标消息，MousePos为已保存鼠标位置
x:=Abs(loWord(Msg.lParam)-MousePos.x);
y:=Abs(HiWord(Msg.lParam)-MousePos.y);
if(x&#62;10)or(y&#62;10)thenClose;
end;
WM_LBUTTONDOWN:Close;
WM_MBUTTONDOWN:Close;//按下鼠标中键
WM_RBUTTONDOWN:Close;//按下鼠标右键
WM_KEYDOWN:Close;//以下为键盘消息
WM_KEYUP:Close;
WM_SYSKEYDOWN:Close;
WM_SYSKEYUP:Close;
end;
end;

</pre>
<p><fontcolor="#ffffff">　　</font>五、运行SCR时的参数：
<p><fontcolor="#ffffff">　　</font>最后一个问题是：WINDOWS是如何运行SCR程序的
？SCR有三种运行方式：1、屏保2、设置3、预览。屏保方式是SCR最主要的运行方式，处于屏保
方式时，SCR实现屏幕保护的功能，显示出各种图像；处在设置方式时，SCR可让用户设置有
关信息，如更换图片、声音等；在“显示器属性”的“屏幕保护程序”页面中间有一个计算机图
像。有些SCR程序运行于预览方式时，屏幕保护图像不是在整个屏幕上显示，而是显示在这
个计算机图像的“显示器”内。
<p><fontcolor="#ffffff">　　</font>WINDOWS启动运行SCR的秘密在哪里？它就在于
参数。WINDOWS可让SCR带三种不同的参数运行：/S、/C、/P。其中/S参数通知SCR运行于屏幕
保护状态;/C（在WIN98则以/C:XXXX参数）和/P参数分别运行于设置与预览方式。打开“显示
器属性”，选中“屏幕保护程序”页面后，只要已选中一个SCR，Windows95都会不断以SCRFileName
/PXXXXX启动该屏保程序，XXXXX就是页面上计算机“显示器”窗体的句柄（处在/P参数的
运行，可由这个窗体句柄取得DC，这里就不再叙述了）。如果选中[设置(T)...]或[预览(V)]
按钮，Windows会先中断已运行的SCR（如果有以/P参数运行的SCR的话），再以/C或/P参数，
启动选中的SCR。如果选中了一个SCR，按右键，出现快捷菜单，其中有“测试(E)”、“配置(O)”、“
安装(I)”等项：它们分别以/C参数、无参数、/P参数运行SCR。需注意的是，这里的“配置”就
是“设置”，奇怪的是，却没有任何参数。
<p><fontcolor="#ffffff">　　</font>在DELPHI中，ParamCount函数可取得命令行参数
个数，ParamStr(Index:Integer)则返回命令行中相应参数字符串，其中ParamStr(0)为程
序名，ParamStr(1)中的存放有WINDOWS启动SCR的第一个参数。了解这些可以帮助我们根据
不同的参数设置运行时的主窗体。假定某SCR有二个窗体，与预览、设置二种运行方式相对
应，其窗体名分别为FormA,FormB,则编写Project程序如下:
<pre>if(Paramcount&#62;0)then
begin
para1:=Copy(UpperCase(ParamStr(1)),1,2);
ifpara1='/S'then//预览
begin
Application.Initialize;
Application.CreateForm(TFormA,FormA);
Application.CreateForm(TFormB,FormB);
Application.Run;
end;
ifpara1='/C'then//设置
begin
Application.Initialize;
Application.CreateForm(TFormB,FormB);
Application.CreateForm(TFormA,FormA);
Application.Run;
end;
endelsebegin//设置
Application.Initialize;
Application.CreateForm(TFormB,FormB);
Application.CreateForm(TFormA,FormA);
Application.Run;
end;
</pre>
<p><fontcolor="#ffffff">　　</font>六、示例：一个随机播放音乐、演示图像的SCR。
<p><fontcolor="#ffffff">　　</font>这个SCR能允许用户随意设置播放的音乐（WAVE和MIDI）
和演示的图像（BMP和JPEG），由于篇幅有限，只设计了几种简单的演示效果。
<p><fontcolor="#ffffff">　　</font>步骤如下：
<p><fontcolor="#ffffff">　　</font>1、创建一个工程项目，将窗体取名为：MyScreenSaverForm。
<p><fontcolor="#ffffff">　　</font>2、加入Timer、TOpenDialog、TMediaPlayer等组
件：如下图(scr.jpg)
<p><fontcolor="#ffffff">　　</font>3、创建有关事件，加入程序代码。
<p><fontcolor="#ffffff">　　</font>4、在DELPHI中编译成可执行文件。
<p><fontcolor="#ffffff">　　</font>5、将可执行文件名改为XXXXX.SCR,复制到WINDOWS
目录
<p><fontcolor="#ffffff">　　</font>6、打开显示器属性，打开屏幕保护程序页面，你
会发现XXXXX已加入到屏幕保护程序列表框中，即可设为活动的的屏幕保护程序。</p>

</td></tr></table><br><img src="/xslimages/content/buttom.gif" align="absmiddle"></img>
        相关内容
        <br><ul><a href="/33554432/34603008/34668544/93528.htm">自 动 隐 藏 的 声 象 按 钮<br><br></a><a href="/33554432/34603008/34668544/93524.htm">用DELPHI中Canvas特性开发图形软件<br><br></a><a href="/33554432/34603008/34668544/93503.htm">用Delphi 4.0 设 计 新 型 界 面<br><br></a><a href="/33554432/34603008/34668544/93483.htm">无标题窗口的移动<br><br></a><a href="/33554432/34603008/34668544/93415.htm">从 实 例 看 Delphi 4 中 的 动 态<br><br></a><a href="/33554432/34603008/34668544/93411.htm">Delphi4.0系统提示信息的汉化<br><br></a></ul><br><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>
            相关链接
          </font><br><ul><a href="http://bbs.cpcw.com/forum/vb/">到程序方舟论坛，论坛主持人为你答疑！<br><br></a></ul><a href=""><font color="#FF9900"><font color="#CC0000"></font></font></a><font color="#000000"><font color="#1C82C5"><img src="/xslimages/content/buttom.gif" align="absmiddle"></img></font>
               更多的
                </font><br><table width="70%"><tr><td width="30%" valign="top" align="left"><ul><a href="/67108864/68157440/68419584/68423680/inverse1.htm">DELPHI</a><br></ul></td><td width="30%" valign="top" align="left"></td></tr></table></td></tr></table><table width="98%" border="0" cellspacing="0"><tr><td width="85%" height="19" align="center" bgcolor="#FDF0C4"><a href="mailto:[e-mail]">
      本文版权归作者和天极网共同所有，如有任何版权问题，请与我们联系。
        </a></td><td width="15%" bgcolor="#FFCC66" height="19">
          【
          <a href="/index.htm">
            回首页
          </a>
          】
        </td></tr></table><br></td><td colspan="2" valign="top" width="25%" bgcolor="#eeeeee"><table width="97%" align="center"><tr><td bgcolor="#ff9900" width="182" height="15"></td></tr></table><table width="97%" border="0" cellpadding="3" align="center"><tr><td valign="top" height="23" border="1" bgcolor="#eeeeee" cellspacing="0" bordercolor="#ff9900"><div align="center">
             火热链接
          </div></td></tr><tr bgcolor="#F5F5F5"><td width="27%" height="20" align="left"><div align="left"><a href="/33554432/36700160/116464.htm">淄博广电被罚 吉通陪绑……</a><br><a href="/33554432/36700160/116429.htm">图文：首信公司与ECnet建全球B2B采购网</a><br><a href="/33554432/36700160/116416.htm">“反色情”触及儿童网站</a><br><a href="/33554432/36700160/116409.htm">WAP，未来的未来</a><br><a href="/33554432/36700160/116406.htm">日本：5年后IT业超美国</a><br><a href="/33554432/36700160/116394.htm">美国在线和时代华纳：引判例对付审查</a><br><a href="/33554432/36700160/116367.htm">WAP收费标准再次推迟出台</a><br><a href="/33554432/36700160/116348.htm">网络经济任重道远</a><br><a href="/33554432/36700160/116319.htm">苹果：我们并未对任何人施压</a><br><a href="/33554432/36700160/116322.htm">法官的离职不会影响微软案</a><br></div></td></tr></table><br><table width="97%" border="0" cellpadding="3" align="center"><tr bgcolor="#ff9900"><td valign="top" height="20"><div align="center">
            
            天极搜索
          </div></td></tr><tr bgcolor="#F5F5F5"><form action="http://search.yesky.com/servlet/search" method="post" name="search" onsubmit="form_onsubmit(); return ValidationPassed;"><td width="27%" height="20" align="center"><div><script language="javascript">
          function form_onsubmit() {
            ValidationPassed = true ;
            if (document.search.keyword.value=="") {
               alert ("请输入搜索关键字！");
               ValidationPassed=false;
             }
               return ValidationPassed;
           }  
     </script><input name="keyword" id="keyword" class="nava" size="12"></input><input type="hidden" name="classify" value="keyword"></input><input type="hidden" name="no" value="34603008"></input><input onClick="form_onsubmit(this.form);" style="HEIGHT:22px;WIDTH:40px" type="submit" value="搜索" name="submit2"></input></div></td></form></tr></table><div align="left"><font color="#000000"><br><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr align="center"><td><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="10" height="2"><img src="/xslimages/school/pathboy-ruanjian.gif" width="32" height="32"></img></td><td width="186" height="2" valign="top"><table width="100%" border="1" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF" bordercolorlight="#000000" bgcolor="#6898D0"><tr align="center"><td height="26"><font color="#FFFFFF">
                                          MyDown下载
                                        </font><font class="nava" color="#FFFFFF"></font></td></tr></table></td></tr></table></td></tr></table><table border="0" cellpadding="0" cellspacing="1" width="100%" align="center"><tbody><tr align="left"><td bgcolor="#ffffff"><script type="text/javascript" language="javascript" src="http://www.mydown.com/mydown.js"></script><br></td></tr></tbody></table><table width="100%" align="center"><tr><td align="center"><tr><td align="center"><a href="http://www.hoyodo.com"><img border="0" src="http://www.hoyodo.com/home/images/banner/botton.gif" width="120" height="60"></img></a><br><br><a href="http://e.yesky.com"><img border="0" src="http://e.yesky.com/images/logo_e2.gif" width="120" height="60" alt="天极E时代"></img></a></td></tr></td></tr></table></font></div><br></td></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><a href="/hdong/gao.htm" target="_blank">欢迎投稿</a>|
            <a href="/bill/index.html" target="_blank">市场联系</a>|
            <a href="/serve/dnbjs.htm" target="_blank">关于我们</a>|
            <a href="/maillist/index.html" target="_blank">邮件列表</a>|
            <a href="/hdong/zaopin.html" target="_blank">加入我们</a>|
            <a href="/hdong/xinsi.html" target="_blank">隐私条款</a></div></td></tr></table><hr height="1" size="1" width="760"></hr><td width="57%" valign="top" rowspan="1" align="center"><div align="center"><script language="JavaScript" src="http://ad.cpcw.com/js/school.js"></script></div></td><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr></tr><tr></tr><tr></tr></table><table width="97%" border="0" cellspacing="0" cellpadding="0" align="center"><tr><td><div align="center"><span class="nava"><font color="#000000" face="Arial, Helvetica, sans-serif">
              Copyright (C) 1999 Yesky.com, All Rights Reserved
            </font><font color="#000000"><br>
              版权所有　 
              <font face="Arial, Helvetica, sans-serif">
              Yesky
              </font></font></span></div></td></tr></table><script>document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?program target=_blank><img style=visibility:hidden src=http://best.netease.com/cgi-bin/log.cgi?user=program&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 alt=网易中文排行榜 ></a>");</script><script> document.write("<a href=http://best.netease.com/cgi-bin/view/viewbasic.cgi?rkai target=_blank> <img style=visibility:hidden src=http://best.netease.com/cgi-bin/log.cgi?user=rkai&refer="+escape(document.referrer)+"&cur="+escape(document.URL)+" border=0 alt=网易中文排行榜 width=15 height=15></a>");</script><A HREF="http://best.nease.net/cgi-bin/view/viewbasic.cgi?cpcw" TARGET="_blank"><IMG SRC="http://best.nease.net/cgi-bin/log.cgi?user=cpcw" style="visibility:hidden"/></A><br><iframe frameborder="0" scrolling="no" src="http://count.yesky.com/servlet/count?articleno=93523" height="0" width="100%"></iframe></body>
</html>