//创建线程
function ThreadRun(parem: Pointer): Integer;
var
i:Integer;
begin
for i:=0 to 10000 do
begin
Form1.Canvas.TextOut(100,100,IntToStr(i));
end;
//endthread(0); //终止当前的线程,当放到主线程的时候就终止当前的主线程
end;
procedure TForm1.btn1Click(Sender: TObject);
var
ThreadID:LongWord;
begin
ThreadID:=1002;
BeginThread(nil,0,@ThreadRun,nil,1001,ThreadID); //调用线程
SuspendThread(hThread); //挂起线程
ResumeThread(hthread); //激活线程
TerminateThread(hthread,0);//终止指定的线程
end;