sp;                    /*把运行情况打印到桌面，这是vcbear调试程序时最喜欢干的事情*/

           sprintf(Buffer,"Running %04d",Step);

                         if(hDC!=NULL)

                                  TextOut(hDC,30,50,Buffer,strlen(Buffer));

                   }



                /*延时一段时间后调用回调函数*/  

                (*gCallback)(Step,1);



                 /*结束*/

                   ::ReleaseDC (HWND_DESKTOP,hDC);

                  return 0;

      }



   

五：万事具备

        使用vc和Delphi各建立了一个工程，编写回调函数的实现部分

       VC版

     int WINAPI CBFunc(int Param1,int Param2)

       {

               int res= Param1+Param2;

             TCHAR Buffer[256]="";

            sprintf(Buffer,"callback result = %d",res);

            MessageBox(NULL,Buffer,"Testing",MB_OK);  //演示回调函数被调用

             return res;            

       }   



         Delphi版

          function CBFunc(Param1,Param2:integer):integer;

          begin

                  result:= Param1+Param2;

                  TForm1.Edit1.Text:=inttostr