5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zyb 2000-06-23
- 打赏
- 举报
创建线程先定义线程句柄hthread : THandle ;
hthread := CreateThread(nil,0,@ThreadFunc,nil,0,ThreadID) ;
(安全属性，堆栈大小，线程函数指针，传递参数指针，线程标志，线程ID)
hthread := CreateThread(nil,0,@ThreadFunc,nil,0,ThreadID) ;
(安全属性，堆栈大小，线程函数指针，传递参数指针，线程标志，线程ID)
shylsz 2000-06-22
- 打赏
- 举报
Deiphi里有个例子。
Limu 2000-06-21
- 打赏
- 举报
First you generate a unit that include a class derive from TThread,like this:
TThread1=class(TThread)
var
Thread:TThread1;
and then uses this unit in your main program.So you can start the thread and stop it like these:
//Start:
Thread=TThread1.create(True);//you can use false if you don't want to run the thread and then use Thread.run starting it.
//pause,Stop:
Thread.suspend;
Thread.ternimate;
TThread1=class(TThread)
var
Thread:TThread1;
and then uses this unit in your main program.So you can start the thread and stop it like these:
//Start:
Thread=TThread1.create(True);//you can use false if you don't want to run the thread and then use Thread.run starting it.
//pause,Stop:
Thread.suspend;
Thread.ternimate;
