nbsp;                  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;



  &nbs