特来请教dephi线程程序如何编写
我的程序原功能如下:清理文件  WIN\TEMP和IE下的缓存文件
由于这两个文件夹下的临时缓存文件过多,程序有“假死”状态,所以
想学习“进程”,还请各位多多赐教

解决方案 »

  1.   

    http://bbs.csdn.net/topics/360046056
      

  2.   

    简单的说:
    创建一个TThread类的派生类,在这个派生类的execute方法中写线程的执行代码,如:
    TMyThread = class(TThread)
    protected
      procedure Execute; override;
    ...TMyThread.Execute;
    begin
      FreeOnTerminate := True; //线程运行结束后自动释放线程对象
      //这里加入线程要执行的代码
    end;然后,创建这个线程的实例,即可:
    TMyThread.Create(False); //参数False表示立即执行线程。
      

  3.   

    来个最简单的function qingli() : boolean;
    begin
    Result := true;
     // your code
    end;function TForm1.BtnQingliClick(Sender: TObject);
    var
    ID : Thandle;
    begin
    ID := CreateThread(nil, 0, @qingli, nil, 0, ID);
    end;
      

  4.   

    鸟哥不会吧..鸟哥... TThread.CreateAnonymousTh...... (里面放你的函数).start
    就可以了.. 完成以后 sendmessage 一个自定义的消息..告诉进程,,俺清理完毕了..
      

  5.   


    Create  Anonymous   Thread这个函数为什么被和谐了..
      

  6.   

    http://www.cnblogs.com/del/archive/2009/02/05/1384713.html