浅析桌面精灵的实现

核心提示：1． 软件的开发目的想必大家对桌面精灵很熟悉吧，想不想自己编一个？笔者非常想编一个，浅析桌面精灵的实现，其目的居然是为了取得美眉的喜欢，由此引出了我开发本软件的目的，如谁对其感兴趣的话，发E_MAIL给我，如果读者有我同样的需求，那么请继续看下去

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)
　  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<x)then k:=k+1;
　　　　　　　　　  if(l<y)then l:=l+1;
　　　　　　　　　  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）