浅析桌面精灵的实现 (转)
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
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10748419/viewspace-997060/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10748419/viewspace-997060/
浅析桌面精灵的实现 (转)相关推荐
- JAVA桌面精灵演示版
近来闲的慌,看见C#或C++写的桌面精灵是不是心理痒痒,JAVA能写不?在我这里回答是:能 当然程序还有点bug,背景处理有问题,这个和系统的刷新率有关....以后再研究... 没啥特别的功能,就是隐 ...
- 桌面计算机1008桌面计算机,windows桌面精灵
windows桌面精灵是一款鼠标键盘动作录制工具,可以自动录制和自定义录制. 功能特色: 一键智能录制键盘鼠标动作 一次智能录制键盘鼠标动作,让桌面精灵为您卖力的重复这这些枯燥的重复操作吧. 超简单自 ...
- 个人作品——桌面精灵(1)
个人作品--桌面精灵(1) 基于STM32单片机以STM32F103C8T6为核心控制配备ESP32运行FreeRtos,搭载LD3322,以实现通过WiFi协议技术实现HTTP协议制作网页界面和 ...
- vnc远程桌面精灵,细数3款vnc远程桌面精灵
VNC 是在基于UNIX 和LINUX 操作系统的免费的开源软件,远程控制能力强大,高效实用,其性能可以和Windows 和 MAC中的任何远程控制软件媲美,那在进行vnc远程桌面时,有哪些好用的vn ...
- vs+qt实现简单桌面精灵
开篇先放成果(桌面精灵用的图片皆为网上的图片,后准备自己做一下) 可以实现获取在桌面的位置,产生相应的变化,比如用鼠标将他拖到电脑屏幕边缘,会吸附到电脑边缘(其实就是换了一张图片,对窗口进行一些操作, ...
- mmd导入的桌面精灵:unity(转载)
之前想做一个桌面精灵,就上网查了一下.发现各位前辈真强大.我就搬运搬运: 首先我先在网上找到了一下模型和舞蹈动作数据,mmd的. 网站是:mmd模型和动作数据 然后我们再去下载一个mmd转换成fbx的 ...
- QT之桌面精灵实现(一) --- 透明窗体和图片绘制
关于QT种种,之前已经吐槽过了,打算写几篇记录一下桌面精灵的制作过程,不过由于是过了挺长时间才想要写,所以之前的一些东西都忘得差不多了,总之想起多少写多少. 桌面精灵的第一步,就是要把一个精灵渲染到桌 ...
- windows/linux桌面精灵(带源码)
效果图: 代码实现逻辑: 桌面上展示的动画均为gif无背景动图(可以下载一套指定模型的gif图),通过监听键盘的输入或者鼠标的点击拖拽,来实现动画的切换,在切换时,通过播放控制器来实现动画正常的切换, ...
- 如何制作具有声音效果的动画桌面精灵
如何制作具有声音效果的动画桌面精灵 作者:徐景周 下载实例代码:http://www.csdn.net/cnshare/soft/7/7085.shtm http://www.csdn.net/cns ...
最新文章
- Android Studio 配置虚拟设备的镜像文件的存放路径
- 【干货】参与感,网易是这样做的
- DataSourceUtils(使用C3P0连接池的工具类)
- 使用异步Servlet改进应用性能
- linux安装minikube(Ubuntu/deepin)
- Linux时间子系统之(十二):periodic tick
- Ocelot简易教程(三)之主要特性及路由详解
- 2018-04-22接口自动化测试学习心得(1)
- 【转载保存】Java+Selenium使用
- ros(2) 发布者publisher的编程实现
- 晓庄学院计算机科学分数,南京晓庄学院计算机单招分数
- docker 2376端口 CA 认证,并不能阻止服务器成为肉鸡
- mybatis中经典的9种设计模式
- UnityShader22:序列帧动画
- 回溯---数字键盘组合
- R语言自然语言处理:情感分析
- 最大熵模型与EM算法及python实现
- 【 MATLAB 】gca 介绍(当前轴或图表)
- cobbler自动部署装机
- 【6-2】hbase shell
热门文章
- react native 开发APP(六)网络请求,列表的使用
- 面试官:你知道 LRU算法 —— 缓存淘汰算法吗?
- java程序调用db2 load,java-在DB2 10.5中使用DB2 load命令加载数据时出错
- 手机站点动态效果插件TouchSlide
- 4月30日世界表白日_4月30日世界表白日_4月14日世界表白日是真的吗 表白温暖情话...
- 一本通 1405:质数的和与积
- python绩点计算_Python爬虫实战(3):计算大学本学期绩点
- catia 如何提取cgr面_CGR文件转化为可编辑数据都有哪些方法呢? _ 设计学院_设计软件教程自学网...
- kivy--入门(一)(Windows)python
- C语言二叉查找树(图文详解)(超详细)