使用回调函数(VC & Delphi)

四：回调函数如何被使用：

TestCallBack函数被调用后，启动了一个线程，作为演示，线程人为的进行了延时处理，并且把线程运行的过程打印在屏幕上.

本段线程的代码也在DLL工程里实现

ULONG WINAPI Thread1(LPVOID Param)
　 {
　　 TCHAR Buffer[256];
　　 HDC hDC=GetDC(HWND_DESKTOP);
　　 int Step=1;
　　 MSG Msg;
　　 DWORD StartTick;
　　 //一个延时循环
　　 for(;Step<200;Step++)
　　 {
　　　 StartTick=GetTickCount();
　　　 /*这一段为线程交出部分运行时间以让系统处理其他事务*/
　　　 for(;GetTickCount()-StartTick<10;)
　　　 {
　　　　 if(PeekMessage(&Msg,NULL,0,0,PM_NOREMOVE))
　　　　 {
　　　　　 TranslateMessage(&Msg);
　　　　　 DispatchMessage(&Msg);
　　　　 }
　　　 }
　　　 /*把运行情况打印到桌面，这是vcbear调试程序时最喜欢干的事情*/
　　　 sprintf(Buffer,"Running%04d",Step);
　　　 if(hDC!=NULL)
　　　　 TextOut(hDC,30,50,Buffer,strlen(Buffer));
　　 }
　　 /*延时一段时间后调用回调函数*/　
　　 (*gCallback)(Step,1);
　　 /*结束*/
　　 ::ReleaseDC(HWND_DESKTOP,hDC);
　　 return0;
　 }