小白请求诸位大神来段多线程的源码

小白请求各位大神来段多线程的源码~
看了好多教程都不懂，例子更是这样····

小弟这有段需要多线的代码请给各位大神给多线程化，谢啦~~~

Delphi(Pascal) code

var  Form1: TForm1;  dm: OleVariant;  Ghwnd: Thandle;  dm_ret: BOOL;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);begin  Winexec('regsvr32 /s dm.dll',SW_show);  dm:= CreateOleObject('dm.dmsoft');end;procedure TForm1.Button1Click(Sender: TObject);begin  Ghwnd:=dm.FindWindow('triuiScreen','EVE');  dm.BindWindow(Ghwnd,'normal','normal','normal',0);  dm.MoveWindow(Ghwnd,10,10)

（就是求个例子，我想看看怎么多线，请给新建来2条线的就行啦，谢啦~请用new-thread object的方式建立，别直接写代码，小弟和原来的对比着~~~~~~~~~~~）

[解决办法]
.....置顶的帖子看看吧
[解决办法]
file->new->other->new->Thread object->Class name 输入一个名字->确定

就得到一个模版了，看到的只有一个方法Execute，要做的就是在Execute事件中写上你的代码
先熟悉Delphi封装的这个线程类吧，然后再学习其它知识，比如用API去创建，什么同步，互斥之类的
多看书练习吧

查看更多 下一篇