对于 VC ，如果不想多线程，可以使用象VB Doevents一样的方式，在函数阻塞时调用使其可以响应其它消息。

VOID YieldToPeers()
{
MSG msg;
while(::PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))
{
if(msg.message ==WM_PAINT )
return;

if(!AfxGetThread()->PumpMessage())
break;
}
}


BOOL Delay(int Seconds)
{        
MSG   msg;   
Seconds=GetCurrentTime()+Seconds;
while(GetCurrentTime()<Seconds)   
{   
 if(PeekMessage(&msg,NULL,NULL,NULL,PM_REMOVE))   
 {TranslateMessage(&msg);   DispatchMessage(&msg);}   
}
return TRUE;
}