急 屏保关键的问题 ( 积分: 50 )

关于描述, 我用了以下方法, 但不成功

关于描述, 我用了以下方法, 但不成功

提供关于自己的描述<br><br>---- 你可以用Delphi中的{$D text} 定义出现在“显示”“属性”中显示的你的屏幕保护程序的名称，$D参数直接将text插入可执行文件入口的描述模块(Description Module) 为了让控制面板认识你的描述，必须加入&quot;SCRNSAVE&quot;。选择项目文件在{$R *.RES}后加入以下代码：<br><br>{$D SCRNSAVE My Screen Saver}<br>&quot;My Screen Saver&quot;将显示在控制面板中的<br>“显示”“属性”中。

另外, 请问要如何预览, 我参考了以下资料... 我的屏保是显示一个TImage

Arg1 := LowerCase(ParamStr(1)); //取命令行参数 UpperCase : SysUtils<br> &nbsp;Arg2 := LowerCase(ParamStr(2));<br><br> &nbsp;if (pos('p', Arg1) &gt; 0) then<br> &nbsp;begin<br> &nbsp; &nbsp;PrevHwnd := StrToInt(Arg2);<br> &nbsp; &nbsp;if PrevHwnd &lt;&gt; 0 then<br> &nbsp; &nbsp; &nbsp;PreviewSCR(PrevHwnd);<br> &nbsp;end else begin<br> &nbsp; &nbsp;if (pos('c', Arg1) &gt; 0) then //参数为'/s',启动屏保，否则，设置屏宝，Windows通过命令行参数/s启动屏保。<br> &nbsp; &nbsp; &nbsp;ConfigureSCR<br> &nbsp; &nbsp;else<br> &nbsp; &nbsp; &nbsp;ShowSCR;<br> &nbsp;end;

procedure PreviewSCR(prevHwnd: HWND);<br>var<br> &nbsp;rc &nbsp;: TRect;<br> &nbsp;ImgLogo: TImage;<br>begin<br> &nbsp;GetClientRect(prevHwnd, rc);<br> &nbsp;if InitProc &lt;&gt; nil then TProcedure(InitProc);<br> &nbsp;while not IsWindowVisible(prevHwnd) do<br> &nbsp; &nbsp;Application.ProcessMessages;<br> &nbsp;while IsWindowVisible(prevHwnd) do<br> &nbsp;begin<br> &nbsp; &nbsp;Application.ProcessMessages;<br> &nbsp;end;<br><br>end;

用DELPHI设计屏幕保护程序<br><br>屏幕保护程序是一类特殊的WINDOWS程序。如果已安装了屏幕保护程序，超过等待时间没有鼠标和键盘操作，WINDOWS会自动运行屏幕保护程序以保护屏幕。在休息之余，欣赏一下漂亮的WINDOWS屏幕保护，使人赏心悦目。那么设计屏幕保护程序要注意哪些方面？由于屏幕保护程序需满足一些特殊条件，比如屏幕保护程序只能有一个实例运行，运行后一旦使用鼠标或键盘应立即结束程序，能接受参数等。设计屏幕保护程序要充分考虑到这些，本文探讨用DELPHI制作一个屏幕保护程序（以下简称SCR），最后给出一个可运行的实例。<br><br>----一、TCanvas与TBitMap对象、JPEG对象：<br><br>----DELPHI的TCanvas封装了大部分WINDOWS对图形的操作，SCR运行时各种图像千变万化、图形变幻无不是TCanvas的“杰作”。TBitMap对象有一个LoadFromFile()方法，能从BMP图像文件取得位图。一般情况下，设计SCR要创建至少一个TBitMap对象，由于窗体和TBitMap对象都有Canvas属性，可利用TCanvas中的各种函数设计图像。设计一个有各种图像变化效果的SCR常用到以下函数：<br><br>----1、CopyRect方法：从其原型CopyRect(Dest:TRect;Canvas:TCanvas;Source:TRect)可看出，它将源画布某一矩形区域的图像复制到另一个画布的矩形区域。由于是内存的成块复制，因此具有很高的执行效率。在Timer组件的OnTimer事件程序中灵活使用该函数，可以设计出各种美观演示效果：如百叶窗、推拉、马赛克、随机线、反像等等。将以下代码加入到OnTimer事件程序，可演示各种图像效果，这里仅举出两种效果，读者可参考有关资料设计更多更漂亮的演示效果。<br>......<br>case PlayMode of<br>0:begin //从左向右移动(设x初值为Screen.Width)<br>x:=x-10;<br>SCRSaverFrom.CopyRect(Rect<br>(x,0,x+10,Screen.Height),Bit.Canvas,<br>Rect(x,0,x+10,Screen.Height));<br>if x=0 then ChangePictureAndPlayMode;//改变图像及演示模式<br>end;<br>1:begin //马赛克<br>for i:=0 to Screen.Width*Screen.Height div 10 do<br>begin<br>j := Random(Screen.Width div 4)*4;<br>k := Random(Screen.Height div 4)*4;<br>SCRSaverFrom.CopyRect(Rect(j,k,j+4,k+4),Bit.Canvas,<br>Rect(j,k,j+4,k+4));<br>end;<br>SCRSaverFrom.CopyRect(Rect<br>(0,0,Screen.Width,Screen.Height),Bit.Canvas,<br>Rect(0,0,Screen.Width,Screen.Height));<br>ChangePictureAndPlayMode; //改变图像及演示模式<br>end;<br>2: ......<br>......<br>end;<br>----2、StretchDraw方法：一般说来，使用CopyRect方法要求源矩形与目的矩形<br>应相等，如果两者尺寸相差太大时，色彩可能失真。使用StretchDraw能避免这个<br>问题，其原型为：StretchDraw(constRect:TRect;Graphic:TGraphic)。它可在画<br>布指定的矩形区域内完整地“画”出一个图像，如果源图象区域与目的区域尺寸<br>不一致，会自动Stretch（拉伸），能有效的避免色彩失真。但此函数只能“画”<br>出整个图像，如果只需“画”出一部分图像则应配合CopyRect()使用，先用<br>StretchDraw()使整幅位图变形”输出到一个画布，然后再用CopyRect()函数将所<br>需部分“画出”。<br><br>----3、TextOut方法：在指定的位置输出一串文字。在Canvas中还有很多函数可<br>绘制图形，也能用于SCR的设计，这里就不加介绍。<br><br>----4、支持JPEG图像。由于JPEG图像格式具有很好的压缩性能，是最常用的图像<br>格式之一。DELPHI3/4中新加入了对JPEG图像的支持，JpegImage是TGraphic的派<br>生类，它的LoadFromFile方法可从JPEG文件取出一幅图像，JpegImage没有Canvas<br>属性，不能用CopyRect()方法,但其它画布可用StretchDraw()方法显示出一个<br>JPEG图像，就将JPEG图像转换成位图。请看下面例子，其中Bit为全局的TBitMap<br>对象。注意：使用JpegImage应在USES中加入JPEG单元。<br><br>procedure LoadBMPFromJPEG(JPEGFileName:String);<br>// 从JPEG 文 件 中 取 图 像<br>var JpegImage1:TJpegImage;<br>begin<br>JpegImage1 := TJpegImage.Create;<br>JpegImage1.LoadFromFile(JPEGFileName);<br>Bit.Width := JpegImage1.Width ;<br>// 使 位 图 与JPEG 图 像 尺 寸 相 等<br>Bit.Height := JpegImage1.Height ;<br>Bit.Canvas.StretchDraw(Rect<br>(0,0,Bit.Width,Bit.Height),JpegImage1);<br>JpegImage1.Free ;<br>end;<br><br>----二、MediaPlayer和Timer组件：<br><br>----MediaPlayer组件封装了MCI中绝大部分的功能，利用它很容易播放WAVE和<br>MIDI音乐，为SCR添加美妙的背景音乐。有关代码如下：<br><br>ifMediaPlayer1.Mode&lt;&gt;mpPLayingthen<br>//音乐播放完后，更换音乐<br>begin<br>inc(i);<br>MediaPlayer1.FileName:=IntToStr(i)+`.WAV`;<br>//逐一播放1.wav,2.wav...<br>MediaPlayer1.Open;<br>MediaPlayer1.Play;<br>end;<br><br>----Timer组件是一个定时器，它的Interval属性指定定时器的间隔时间，每隔<br>指定的时间就会执行一次OnTimer事件，SCR的OnTimer事件内要完成演示图像，<br>更换图像，检查音乐是否播放完毕，更换音乐等各项工作。因此，Timer是设计<br>SCR程序必不可少的组件。<br><br>----三、设置SCR的窗体：<br><br>----SCR的窗体与一般程序的窗体没有太大的区别。设计时只需注意到以下几点：<br><br>----1、设置窗体属性：WindwoState属性一般设为wsMaximized，使窗体覆盖整<br>个屏幕；BorderStyle属性设为bsNone，使窗体无边框、标题；FormStyle属性设<br>为fsStayOnTop，使窗体总是保持在屏幕最上面。<br><br>----2、防止SCR重复运行：为防止程序重复运行，在WINS95/98可用API函数<br>FindWindow查找已运行的窗体类型，API函数原型：<br>HWNDFindWindow(LPCTSTRlpClassName,LPCTSTRlpWindowName)。以下演示SCR是<br>如何避免重复运行的。打开Project，在USES单元中加入WinTypes和SysUtils单元。<br>program Project1;<br>uses<br>Forms, WinTypes, SysUtils, //后两者为新加入单元<br>Unit1 in `Unit1.pas` {MyScreenSaverForm};<br>{$R *.RES}<br>var FindWindwsHandle:array[0..255] of Char; //存放窗体名<br>para1:String;<br>......<br>StrPCopy(FindWindwsHandle,`TMyScreenSaverForm`);<br>//TMyScreenSaverForm是这个SCR的窗体名。<br>if FindWindow(FindWindwsHandle,Nil) = 0 //寻找同一窗口类型<br>then ...... //没有同一窗体重复运行<br>else ...... //发现有同一窗体重复运行<br>......<br><br>----注意：由于Dephi在设计窗体时已向Windows登记了TMyScreenSaverForm窗<br>体，若在Dephi调试器内运行该程序，FindWindow函数会发现已有一个窗体，<br>它会执行else后面的代码，调试时应注意这一点。如要使该程序顺利运行，须<br>先执行File菜单中的Close命令，将TMyScreenSaverForm窗体关闭掉。<br><br>----3、SCR的鼠标：<br><br>显示/隐藏鼠标：SCR有时运行中应能隐藏鼠标，可用API函数ShowCursor，该<br>函数：intShowCursor(BOOLbShow)。bShow是一个布尔类型变量，取False值隐<br>藏鼠标，取True值显示鼠标。<br>取鼠标位置：取鼠标所处位置可用GetCurSorPos过程，原型为：<br>GetCurSorPos(MousePos：TPoint)，MousePos为鼠标所处位置。<br>SCR一旦在捕获鼠标移动消息，就将当前鼠标的位置与已保存的位置比较，计算<br>出鼠标移动的距离。<br><br>----四、捕获鼠标与键盘消息：<br><br>----SCR运行后，按下、移动鼠标或敲击键盘都应立即作出反应，中断程序运行。<br>这有两种办法可解决。一是在窗体所有与鼠标、键盘有关的事件内加入Close过<br>程，如OnMouseMove、ONKeyDown等事件。这样一旦用户移动鼠标或按下鼠标（键<br>盘）都会关闭程序。这种方法简单易行，但有一个缺陷，按鼠标中、右键却不能<br>关闭程序。二是使用Application对象的OnMessage事件，我们可为该事件定义一<br>个处理程序，以捕获传递的消息，捕获消息后判定消息是否为鼠标或键盘消息，<br>如果是，就决定是否关闭程序。假定CloseSCR是用户编写捕获消息程序，要先设<br>定Application.OnMessage:=CloseSCR。<br><br>捕获鼠标、键盘就关闭SCR的程序如下：<br><br>procedure TMyScreenSaverForm.CloseSCR<br>(var Msg:TMsg;var Handled:boolean);<br>var x,y:Integer;<br>begin<br>case Msg.message of<br>WM_MOUSEMOVE : begin<br>//以下为鼠标消息，MousePos为已保存鼠标位置<br>x := Abs(loWord(Msg.lParam)-MousePos.x);<br>y := Abs(HiWord(Msg.lParam)-MousePos.y);<br>if (x &gt;10) or (y &gt;10) then Close;<br>end;<br>WM_LBUTTONDOWN : Close;<br>WM_MBUTTONDOWN : Close; //按下鼠标中键<br>WM_RBUTTONDOWN : Close; //按下鼠标右键<br>WM_KEYDOWN : Close; //以下为键盘消息<br>WM_KEYUP : Close;<br>WM_SYSKEYDOWN : Close;<br>WM_SYSKEYUP : Close;<br>end;<br>end;<br><br>----五、运行SCR时的参数：<br><br>----最后一个问题是：WINDOWS是如何运行SCR程序的？SCR有三种运行方式：<br>1、屏保2、设置3、预览。屏保方式是SCR最主要的运行方式，处于屏保方式时，<br>SCR实现屏幕保护的功能，显示出各种图像；处在设置方式时，SCR可让用户设置<br>有关信息，如更换图片、声音等；在?显示器属性”的“屏幕保护程序”页面中间<br>有一个计算机图像。有些SCR程序运行于预览方式时，屏幕保护图像不是在整个屏<br>幕上显示，而是显示在这个计算机图像的“显示器”内。<br><br>----WINDOWS启动运行SCR的秘密在哪里？它就在于参数。WINDOWS可让SCR带三种<br>不同的参数运行：/S、/C、/P。其中/S参数通知SCR运行于屏幕保护状态;/C（在<br>WIN98则以/C:XXXX参数）和/P参数分别运行于设置与预览方式。打开“显示器属<br>性”，选中“屏幕保护程序”页面后，只要已选中一个SCR，Windows95都会不断<br>以SCRFileName/PXXXXX启动该屏保程序，XXXXX就是页面上计算机“显示器”窗体<br>的句柄（处在/P参数的运行，可由这个窗体句柄取得DC，这里就不再叙述了）。<br>如果选中[设置(T)...]或[预览(V)]按钮，Windows会先中断已运行的SCR（如果有<br>以/P参数运行的SCR的话），再以/C或/P参数，启动选中的SCR。如果选中了一个<br>SCR，按右键，出现快捷菜单，其中有“测试(E)”、“配置(O)”、?安装(I)”等<br>项：它们分别以/C参数、无参数、/P参数运行SCR。需注意的是，这里的“配置”<br>就是“设置”，奇怪的是，却没有任何参数。<br><br>----在DELPHI中，ParamCount函数可取得命令行参数个数，ParamStr(Index:Integer)<br>则返回命令行中相应参数字符串，其中ParamStr(0)为程序名，ParamStr(1)中的存<br>放有WINDOWS启动SCR的第一个参数。了解这些可以帮助我们根据不同的参数设置运<br>行时的主窗体。假定某SCR有二个窗体，与预览、设置二种运行方式相对应，其窗体<br>名分别为FormA,FormB,则编写Project程序如下:<br>if (Paramcount &gt;0) then<br>begin<br>para1 := Copy(UpperCase(ParamStr(1)),1,2);<br>if para1=`/S` then //预览<br>begin<br>Application.Initialize;<br>Application.CreateForm(TFormA, FormA);<br>Application.CreateForm(TFormB, FormB);<br>Application.Run;<br>end;<br>if para1=`/C` then //设置<br>begin<br>Application.Initialize;<br>Application.CreateForm(TFormB, FormB);<br>Application.CreateForm(TFormA, FormA);<br>Application.Run;<br>end;<br>end else begin //设置<br>Application.Initialize;<br>Application.CreateForm(TFormB, FormB);<br>Application.CreateForm(TFormA, FormA);<br>Application.Run;<br>end;<br><br>----六、示例：一个随机播放音乐、演示图像的SCR。<br><br>----这个SCR能允许用户随意设置播放的音乐（WAVE和MIDI）和演示的图像（BMP<br>和JPEG），由于篇幅有限，只设计了几种简单的演示效果。<br><br>----步骤如下：<br>----1、创建一个工程项目，将窗体取名为：MyScreenSaverForm。<br>----2、加入Timer、TOpenDialog、TMediaPlayer等组件：<br>----3、创建有关事件，加入程序代码。<br>----4、在DELPHI中编译成可执行文件。<br>----5、将可执行文件名改为XXXXX.SCR,复制到WINDOWS目录<br>----6、打开显示器属性，打开屏幕保护程序页面，你会发现XXXXX已加入到屏幕保<br>护程序列表框中，即可设为活动的的屏幕保护程序。<br>;

我的问题是要如何在 显示 属性 --&gt; 屏幕保护程序 那个小屏幕做预览