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

[丷与你初见丷]

看了好多教程都不懂，例子更是这样····

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

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的方式建立，别直接写代码，小弟和原来的对比着~~~~~~~~~~~）

[浩南_哥]

.....置顶的帖子看看吧

[丷与你初见丷]

看不懂呃········

[kaikai_kk]

file->new->other->new->Thread object->Class name 输入一个名字->确定

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