一个线程控制另外一个线程

katia2004

一个线程控制另外一个线程，如何实现？我用TThread,想在一个线程中写入代码，来暂停另外一个线程，应该怎么写呢？

魔兽贱队

dephi的不懂,不过api的话
SuspendThread  暂停
ResumeThread  恢复
具体使用 百度 嘛

songzihui

我想知道怎么是线程交替使用？比如
procedure TForm1.Timer1Timer(Sender: TObject);
begin
//执行代码
Timer2.Enabled:=true;   
sleep(3000);
Timer1.Enabled:=flase;  
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
//执行代码
Timer3.Enabled:=true;   
sleep(3000);
Timer2.Enabled:=flase;
end;

  
上述过程，多线程怎么实现呢？

CARRIE

别没写，就被TT绕昏了。

CreateThread里面不是有参数？指定线程入口。
在线程入口里，再CreateThread

2个线程怎么控制呢
要不用2个变量控制他们交替执行你的代码
要不用waitforsingleobject，设置信号来执行你的代码

呵呵，delphi这家伙，我写过一个程序，用了36个定时器，结果就一条线程，虽然系统按线程分配cpu资源过来的，不过程序也就900kb，执行所有的定时器，也耗费不来多久，一般来说，多线程对辅助影响不大。
ASM才是王道，delphi是越搞事越多，搞木马病毒挂，还是用vc编译器，尽量用汇编去写代码，否则安全性大打折扣，花样越多，被爆菊花的可能性越高，又称‘暴晒’，我一般写好代码