线程安装退出的方法

 // 退出时代码
  if (thread_DataSave->Suspended)
    {
       thread_DataSave->Resume();
    }
    thread_DataSave->ReturnToMain=true;
    thread_DataSave->Terminate();
    thread_DataSave->WaitFor();
    thread_DataSave->Free();

__fastcall Thread_DataSave::Thread_DataSave(bool CreateSuspended)
        : TThread(CreateSuspended)
{
    CoInitialize(NULL);
    ReturnToMain=false;

}
__fastcall Thread_DataSave::~Thread_DataSave()
{

}
void __fastcall Thread_DataSave::Execute()
{
   AdoSaveFun();
}
void __fastcall Thread_DataSave::AdoSaveFun()
{
   CoInitialize(NULL);

    while ( ! ReturnToMain )
    {
        //  add you code 

         Sleep(10);
    }
    delete savelist;
    //CoUnInitialize();
}