浅析桌面精灵的实现 (转)[@more@]

1．  软件的开发目的XML:namespace prefix = o ns = "urn:schemas-microsoft-com:Office:office" />

想必大家对桌面精灵很熟悉吧，想不想自己编一个？笔者非常想编一个，其目的居然是为了取得美眉的喜欢，由此引出了我开发本软件的目的。如果读者有我同样的需求，那么请继续看下去，我将和你共同探讨这个问题。注意以下示例代码均用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。笔者用了如下样式的位图（截取了一部分），你可以自己画动画对象，也可以借用别人的，笔者就是用微软画的图片。

ASPectratio="t">

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

 

unit Unitmain;

interface

uses

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

  ExtCtrls, StdCtrls,mmsystem;

 

type

  TForm1 = class(TForm)

  Timer1: TTimer;//爆炸定时器

  Image1: TImage;//储存爆炸的图片

  Image2: TImage;//储存飞行器的图片

  procedure Timer1Timer(Sender: Tobject);

  procedure FormCreate(Sender: TObject);

  procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

  { Private declarations }

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

  stop:boolean;//控制循环的变量

  expnum:integer;//爆炸的当前次数

  procedure Explode(X:integer;Y:integer);//爆炸函数

  procedure shipmove(X:integer;Y:integer);//飞行器函数

  public

  { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

//保存桌面背景

procedure savebackground(BKCanvas :TCanvas;

   sp_w:integer;

  sp_h :integer ;

  nx:integer;

  ny:integer);

var sc:TCanvas;

begin

  sc:=TCanvas.Create;

  try

  sc.Handle:=GetDC(0);

  bkcanvas.CopyRect( rect(0,0,sp_w, sp_h), sc,rect(nx, ny, nx+sp_w, ny+sp_h));

  ReleaseDC(0, sc.handle);

  finally

  sc.free;

  end;

end;

 

//透明拷贝图像函数

//静态调用API函数TransparentBlt

procedure tranbit(hdcDest:HDC;

  nXOriginDest:integer;

  nYOriginDest:integer;

  nWidthDest:integer;

  hHeightDest:integer;

  hdcSrc:HDC;

  nXOriginSrc:integer;

  nYOriginSrc:integer;

  nWidthSrc:integer;

  nHeightSrc:integer;

  crTransparent:UINT) ;

Var

  LibHandle:HWND;//动态连接库句柄

  //函数原型定义

   DllName:Procedure(hdcDest:HDC;

  nXOriginDest:integer;

  nYOriginDest:integer;

  nWidthDest:integer;

  hHeightDest:integer;

  hdcSrc:HDC;

  nXOriginSrc:integer;

  nYOriginSrc:integer;

  nWidthSrc:integer;

  nHeightSrc:integer;

  crTransparent:UINT);Stdcall;

begin

  //以下是静态调用dll中函数的例行公事

  LibHandle:=LoadLibrary('msimg32.dll');

  if LibHandle<32 then

  begin

  MessageBox(Form1.Handle,'Not Found msimg32.dll','Error',0);

  Exit;

  end;

  @DllName:=GetProcAddress(LibHandle,'TransparentBlt');

  if @DllName=nil then

  begin

  MessageBox(Form1.Handle,'Not Found TransparentBlt in msimg32.dll','Error',0);

  FreeLibrary(LibHandle);

  Exit;

  end;

  try

  TransparentBlt(hdcDest,

  nXOriginDest,

   nYOriginDest,

  nWidthDest,

  hHeightDest,

  hdcSrc,

  nXOriginSrc,

  nYOriginSrc,

  nWidthSrc,

  nHeightSrc,

   crTransparent);

  finally

  FreeLibrary(LibHandle);

  end;

end;

 

//爆炸函数

//在桌面的X,Y坐标处发生爆炸

procedure TForm1.Explode(X:integer;Y:integer);

var

  BitMapB : TBitMap;//保存桌面指定区域的内存位图

  w:integer;//一帧动画的宽度

  h:integer;//一帧动画的高度

  i:integer;

  j:integer;

begin

  BitMapB:=TBitMap.Create;

  try

  //动画位图为4*5=20帧

  w:=Image1.Width div 4;//计算每帧的宽度

  h:=image1.Height div 5;//计算每帧的高度

  //初始化内存为图的大小

  BitMapB.Height :=h;

  BitMapB.Width :=w;

  //保存桌面上指定区域的位图

  //注意，由于爆炸是在同一位置完成的，所以只要保存爆炸区域一次就行了。

  savebackground(BitMapB.canvas,w,h,X,Y);

  for i:=0 to 4 do

    begin

    for j:=0 to 3 do

    begin

  //把相应帧画到桌面上

    tranbit(DeskTopDC ,x,y,w,h,

  image1.Canvas.Handle,j*w,i*h,w,h,RGB(208,2,178));

      Sleep(20);//显示速度太快，停顿20毫秒

  //恢复桌面

    bitblt(DeskTopDC,X,Y,w,h,BitMapB.Canvas.handle,0,0,srccopy);

  end;

  end;

  finally

  BitMapB.Free;

  end;

end;

 

//飞行器的飞行函数

//参数x,y指定飞行器飞行的目的地

procedure TForm1.shipmove(X:integer;Y:integer);

var

  w:integer;

  h:integer;

  i:integer;

  j:integer;

  k:integer;

  l:integer;

  BitMapB : TBitMap;

begin

  Randomize();

  BitMapB:=TBitMap.Create;

  try

  //动画位图为4*16-3帧空帧=61帧

  w:=Image2.Width div 4;

  h:=image2.Height div 16;

  BitMapB.Height :=h;

  BitMapB.Width :=w;

  k:=0;

  l:=0;

  while not stop do

  for i:=0 to 15 do

  for j:=0 to 3 do

  begin

  if (i=15) and (i>0) then break;//如果是空帧就不画了

  //保存桌面上指定区域的位图

  //注意，由于飞行是在不同位置完成的，所以要保存即将被绘图的桌面区域

  savebackground(BitMapB.canvas,w,h,k,l);

  tranbit(DeskTopDC ,k,l,w,h,image2.Canvas.Handle,j*w,i*h,w,h,RGB(208,2,178));

 

  sleep(10);

  bitblt(DeskTopDC,k,l,w,h,BitMapB.Canvas.handle,0,0,srccopy);

  if(k

  if(l

  if timer1.Enabled =false then

  if(k>x-10)then//到达目的地就停止飞行，并引爆炸弹

  begin

   stop:=true;

  timer1.Enabled :=true;//炸弹引爆器

  end;

  end;

  finally

  BitMapB.Free;

  end;

end;

 

procedure TForm1.Timer1Timer(Sender: TObject);

var

  x,y:integer;

begin

 

   if(expnum = 0) then

  begin

  Explode(screen.width div 2-20,screen.Height div 2-20);

  sndPlaySound('explosion.wav',SND_NOSTOP);

  expnum:=expnum+1;

  end

  else if expnum<10 then//爆炸最多10次

  begin

  //产生随机位置

  x:=Random(screen.Width-100);

  y:=Random(Screen.Height-100);

  Explode(x,y);//爆炸

  sndPlaySound('explosion.wav',SND_NOSTOP);//播放爆炸声音

  expnum:=expnum+1;

  end

  else

  begin

  stop:=true;

  timer1.Enabled :=false;

  close();

  end;

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  DeskTopDC:=GetDC(0);

  chdir(ExtractFilePath(application.ExeName));

  stop:=false;

  expnum:=0;

  //飞行器开始飞行，目的地为屏幕中央

  self.shipmove(screen.width div 2,screen.Height div 2);

end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  stop:=true;

  Timer1.Enabled :=false;

  ReleaseDC(0, DeskTopDC);

end;

 

end.

4.结束语

正如我们所希望的那样：一个飞行器飞入桌面，慢慢向屏幕中央靠近，当它到达目的地时就爆炸了，并引出一连串的爆炸。程序顺利地完成了我们的希望，但是程序还有许多不足，最好用DirectX来完成动画，这样效果可能会更好。如谁对其感兴趣的话，发E_Mail给我，我们一起探讨。（E_MAIL:CODEHUNTER@SOHU.COM）

 

  3/29/2001 4:18:19 PM