Delphi 线程操作

//创建线程

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;