用CreateThread()创建线程

全过程例程如下：

1.  void   __fastcall   TForm1::btn_1Click(TObject   *Sender) 
2. { 
3.         if   (hthread   ==   NULL)   {                                                     //   不存在则创建线程 
4.                 hthread   =   CreateThread( 
5.                         (LPSECURITY_ATTRIBUTES)0,                               //   default   security   attributes 
6.                         0,                                                                             //   use   default   stack   size 
7.                         (LPTHREAD_START_ROUTINE)funcproc,               //   thread   function 
8.                         NULL,                                                                       //   argument   to   thread   function 
9.                         0,                                                                             //   use   default   creation   flags 
10.                         NULL);                                                                     //   returns   the   thread   identifier 
11.         }   else   {                                                                                 
12.                 ResumeThread(hthread); 
13.         } 
15. } 
16. //--------------------------------------------------------------------------- 
17. DWORD   WINAPI   funcproc()//   thread   data 
18. { 
19.         int   i; 
21.         while(true) 
23. { 
24.                 i++; 
25.                 Sleep(50); 
26.                 Form1-> lbl_1-> Caption   =   i; 
27.         } 
28. } 
29. void   __fastcall   TForm1::btn_2Click(TObject   *Sender) 
30. { 
31.         SuspendThread(hthread); 
32. } 
33. //--------------------------------------------------------------------------- 
34. void   __fastcall   TForm1::FormDestroy(TObject   *Sender) 
35. { 
36.         TerminateThread(hthread,   (DWORD)0); 
37.         CloseHandle(hthread); 
38.         hthread   =   NULL; 
39. }