关于多线程！

Question

First you generate a unit that include a class derive from TThread,like this:
    TThread1=class(TThread)
var 
    Thread:TThread1;
and then uses this unit in your main program.So you can start the thread and stop it like these:
//Start:
    Thread=TThread1.create(True);//you can use false if you don't want to run the thread and then use Thread.run starting it.
//pause,Stop:
    Thread.suspend;
    Thread.ternimate;
    

Answer 1

创建线程先定义线程句柄hthread : THandle ;
hthread := CreateThread(nil,0,@ThreadFunc,nil,0,ThreadID) ;
(安全属性，堆栈大小，线程函数指针，传递参数指针，线程标志，线程ID)