打印本文 打印本文 关闭窗口 关闭窗口
浅析桌面精灵的实现
作者:武汉SEO闵涛  文章来源:敏韬网  点击数2942  更新时间:2009/4/23 18:40:51  文章录入:mintao  责任编辑:mintao

1    软件的开发目的


想必大家对桌面精灵很熟悉吧,想不想自己编一个?笔者非常想编一个,其目的居然是为了取得美眉的喜欢,由此引出了我开发本软件的目的。如果读者有我同样的需求,那么请继续看下去,我将和你共同探讨这个问题。注意以下示例代码均用DELPHI描述。


2    实现原理


其实桌面精灵的原理很简单,主要分以下几步:


1.获取桌面窗口的HDC。


    API 定义如下:


    GetDC函数用于获取指定窗口的图形设备描述表


    HDC GetDC(


    HWND hWnd   // 窗口句柄


    );


    例如:


    DeskTopDC:HDC;//定义桌面窗口的图形设备描述表句柄


    DeskTopDC:=GetDC(0);


    或者DeskTopDC:=GetDC(GetDesktopWindow());


2.创建一个内存位图,把桌面中将要绘图的区域,保存到内存位图中去,以便绘图完成时恢复桌面。为此我定义了一个函数:


    procedure savebackground(BKCanvas :TCanvas;//内存位图的画布对象


                        sp_w:integer;//要保存区域的宽度


                        sp_h :integer ;//要保存区域的高度


                        nx:integer;//要保存区域的X坐标


                        ny:integer);//要保存区域的Y坐标


3.将动画对象透明地拷贝到桌面的绘图区域,笔者用了一个GDIAPI函数方便地实现了此功能。


    定义如下:


    BOOL TransparentBlt(HDC hdcDest,//目标图形设备描述表句柄


                        int nXOriginDest,//绘图矩形的X坐标


                        int nYOriginDest,//绘图矩形的Y坐标


                        int nWidthDest,//绘图矩形的宽度


                        int hHeightDest,//绘图矩形的高度


                        HDC hdcSrc,//源图形设备描述表句柄


                        int nXOriginSrc,//源绘图矩形的X坐标


                        int nYOriginSrc,//源绘图矩形的Y坐标


                        int nWidthSrc,//源绘图矩形的宽度


                        int nHeightSrc,//源绘图矩形的高度


                        UINT crTransparent//设置透明色RGB(r,g,b)


                        );


    注意:


    Windows NT: 需要5.0或以上版本


    Windows: 需要 Windows 98 或 以上版本


    其它低版本不支持。


    此函数包含在msimg32.dll.


    笔者定义了一个tranbit函数来动态调用TransparentBlt函数,具体定义见第三节。


4.将第二步生成的内存位图拷贝到桌面。这样一帧动画就显示完成。不断循环1-4步,你就能看到连续的动画场景了。


3.具体代码


以下是一个演示程序,在DELPHI5.0+WINDOWS2000P中调试通过。创建一个窗体Form1,放上两个Image控件,命名为Image1,Image2,再放上一个Timer控件,命名为Timer1。准备两张位图,一张放入Image1,另一张放入Image2。笔者用了如下样式的位图(截取了一部分),你可以自己画动画对象,也可以借用别人的,笔者就是用微软画的图片。



从图片你可以看出,图片中包括了许多连续的动画帧,一张图片完成一个动作,如旋转一周等,每帧动画大小完全一样,除了动画对象其它像素用一种透明色填充。好了你可以看具体的代码了。


 


unit Unitmain;


interface


uses


  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,


  ExtCtrls, StdCtrls,mmsystem;


 


type


  TForm1 = class(TForm)


[1] [2] [3] [4] [5]  下一页

打印本文 打印本文 关闭窗口 关闭窗口