在DELPHI中如何编写多线程的程序?

解决方案 »

  1.   

    去看看TTHREAD类的帮助或是D5,6开发人员指南里都有啊?
      

  2.   

    www.playicq.com看看,我前段时间传过一个程序,你查找"多线程"
      

  3.   

    我用API写一个吧://工作者线程
    function  WorkerThread(p : Pointer): longint;stdcall;
    begin
      //在此处理你需要做的事情  
    end;procedure TForm1.FormCreate(Sender: TObject);
    var 
       hThread : THandle;
       TreadId : LongWord;
    begin
      //创建线程并挂起
      hThread := CreateThread(nil,0,@WorkerThread,@t,CREATE_SUSPENDED,ThreadId);
    end;//-----------------------启动线程
    procedure TForm1.Button1Click(Sender: TObject);
    begin 
       ResumeThread(hThread);
    end;
      

  4.   

    看一下DELPHI下Demos\Threads的那个排序的例子,很详细的!!!!!