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



 &