delphi多线程的问题
答案:2 悬赏:60 手机版
解决时间 2021-02-03 18:25
- 提问者网友:半生酒醒
- 2021-02-03 11:24
我在写一个软件的时候要用到delphi的线程类,就是不知道如何重新启动这个线程,注意是线程类
最佳答案
- 五星知识达人网友:野慌
- 2021-02-03 11:58
给你一个简单的参考代码:
delphi线程的创建、挂起、激活与终止
procedure TForm1.Button1Click(Sender: TObject);
begin
//创建线程,同时线程函数被调用
hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SuspendThread(hThread); //挂起线程
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ResumeThread(hThread); // 激活线程
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
TerminateThread(hThread,0); // 终止线程
end;
delphi线程的创建、挂起、激活与终止
procedure TForm1.Button1Click(Sender: TObject);
begin
//创建线程,同时线程函数被调用
hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
SuspendThread(hThread); //挂起线程
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ResumeThread(hThread); // 激活线程
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
TerminateThread(hThread,0); // 终止线程
end;
全部回答
- 1楼网友:蕴藏春秋
- 2021-02-03 12:58
重新启动这个线程???
先把线程停止,然后再启动新的线程,还是先暂停,然后再启动呢?
停止使用 tthread.terminate;
暂停使用tthread.suspend ;
启动使用tthread.resume ;
直接启动使用tthreadvar:=tthread.create(false);
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯