MFC线程使用

在BCB6中编译MFC线程方法：

unsigned int __cdecl ThreadFun(LPVOID lpParam){    TForm1 * p = (TForm1*)lpParam;    int i=0;    while(1)    {        i++;        CTime time = CTime::GetCurrentTime();        CString szTime = time.Format("%H:%M:%S");        p->Caption =szTime.GetBuffer(szTime.GetLength());        Sleep(1000);        if(i>=5)          break;    }    return 0;}void __fastcall TForm1::Button7Click(TObject *Sender){    pThread = AfxBeginThread(ThreadFun,this);}