线程操作

1.  要在protected后面要定义一个public的construtor create(suspened;boolean;参数2,参数3...//是自己定义的参数) 

2.  在create函数的函数体里首先要有一句:inheritedcreate(suspended);下面是自己的要写的代码.

     注意:别忘了要在最后加一句:freeonterminate:=true来释放所占的内存.因为我们习惯只创建线程而没有释放,所以这一句是必须的.

3.  execute过程里有一句synchronize(过程名)来调用某个过程(在任何需要操作vcl资源的地方如:窗体,位图都应加入synchronize调用)

4.  使用:   在uses后加入要声明的自己的线程类,   type 类名=class (TThread)

  创建线程用的API函数:  CreateThread(LPSECURITYATTRIBUTES  lpThreadAttributes,  DWORD DWSTACKsIZE,LPTHREAD_START_ROUTINE lpStartAddress,LPVOID lpparameter,DWORD dwCreationFlans, LPDWORD  lpThreadID);

  例:

CreateThread(nil,0,@函数名,nil,0,一个ID);