调用代码如下
THEADPARAMS*ptp=(THEADPARAMS*)p;
HWND hWnd=ptp->hWnd;HMODULE hDll=LoadLibrary(_T("singlercs.dll"),NULL,NULL);
 if(!hDll)
{
//::MessageBox(_T("loading dll fail"));
  return 0;
}
void(*proc)(float*,float*,float*,float*,float*,float*,float*);
proc=(void(*)(float*,float*,float*,float*,float*,float*,float*))GetProcAddress(hDll,"MAIN");  //对于dll中的函数名在此必须大写
 if(!proc)
{
//::MessageBox(_T("loading subroutine program fail"));
 }
 else
 {
 proc(&(ptp->lambda),&(ptp->Itheta),&(ptp->alpha),&(ptp->IphiB),&(ptp->IphiE),&(ptp->Increment),&(ptp->Stheta));
  FreeLibrary(hDll);
  return 0;
}