多线程问题

Question

在  delphi   中  如何实现多线程

Answer 1

vc 的
.h
LRESULT  Deal(WPARAM param, LPARAM lparam);
.cpp
在消息循环中加
ON_MESSAGE(MW_MYMESSAGE, Deal)//MW_MYMESSAGE 自己定义的 
UINT ThreadProc(LPVOID param)
{ for(long i = 0; i<1000000; i++)
{

for(int k = 0; k<1000; k++)
{
int p = k/1000;
} if(!(i++ %10000) ) 
::SendMessage(AfxGetApp()->GetMainWnd()->m_hWnd,
MW_MYMESSAGE,(WPARAM)(i/10000),0); 
}

param = (LPVOID)&i;
return i;
}void CMutiThDlg::OnButton1() 
{
int x;

::AfxBeginThread(ThreadProc,(LPVOID)&x);
}
LRESULT  CMutiThDlg::Deal(WPARAM param, LPARAM lparam)
{
UpdateData();
m_slid = (int)(param);
UpdateData(FALSE);
return 0;}