特来请教dephi线程程序如何编写 特来请教dephi线程程序如何编写我的程序原功能如下:清理文件 WIN\TEMP和IE下的缓存文件由于这两个文件夹下的临时缓存文件过多,程序有“假死”状态,所以想学习“进程”,还请各位多多赐教 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://bbs.csdn.net/topics/360046056 简单的说:创建一个TThread类的派生类,在这个派生类的execute方法中写线程的执行代码,如:TMyThread = class(TThread)protected procedure Execute; override;...TMyThread.Execute;begin FreeOnTerminate := True; //线程运行结束后自动释放线程对象 //这里加入线程要执行的代码end;然后,创建这个线程的实例,即可:TMyThread.Create(False); //参数False表示立即执行线程。 来个最简单的function qingli() : boolean;begin Result := true; // your codeend;function TForm1.BtnQingliClick(Sender: TObject);var ID : Thandle;begin ID := CreateThread(nil, 0, @qingli, nil, 0, ID);end; 鸟哥不会吧..鸟哥... TThread.CreateAnonymousTh...... (里面放你的函数).start就可以了.. 完成以后 sendmessage 一个自定义的消息..告诉进程,,俺清理完毕了.. Create Anonymous Thread这个函数为什么被和谐了.. http://www.cnblogs.com/del/archive/2009/02/05/1384713.html 请教,编程思路。 一个动态库的问题。 XML問題~~~~~~~~! 有人能通俗点讲解什么是递归调用过程吗?实在太难明了 TDriveComboBox控件问题,怎样解决软驱无盘时选中软驱的异常事件,在线等 怎么在程序里判断Image控件有没有加载图片? 有麻煩 将paradox数据库设了密码后,在BDE及ADO中如何设置才可以正常进入?? 很多年没用Delphi了,又要重新捡起。现在大家都用什么版本,推荐一下,谢谢 有较简单的方法能给各类控件都加多一个属性吗? 如何用delphi7编写温度云图? Delphi遍历进程,并把需要的进程激活,显示该程序窗体
创建一个TThread类的派生类,在这个派生类的execute方法中写线程的执行代码,如:
TMyThread = class(TThread)
protected
procedure Execute; override;
...TMyThread.Execute;
begin
FreeOnTerminate := True; //线程运行结束后自动释放线程对象
//这里加入线程要执行的代码
end;然后,创建这个线程的实例,即可:
TMyThread.Create(False); //参数False表示立即执行线程。
begin
Result := true;
// your code
end;function TForm1.BtnQingliClick(Sender: TObject);
var
ID : Thandle;
begin
ID := CreateThread(nil, 0, @qingli, nil, 0, ID);
end;
就可以了.. 完成以后 sendmessage 一个自定义的消息..告诉进程,,俺清理完毕了..
Create Anonymous Thread这个函数为什么被和谐了..