用api实现多线程 ( 积分: 20 )

A

adomy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #1

怎么用api实现10个以上的线程？能给点教程实例吗？

 

A

adomy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-02

• #2

怎么用api实现10个以上的线程？能给点教程实例吗？

 

Z

zhuangbx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-24

• #3

procedure SendPass;stdcall;
var i:integer;
begin
for i:=1 to 1000 do
sleepex(50,true);
end;

procedure SendMailThread; //
var i,tid:integer;
begin
for i:=1 to 50 do//50个线程
CreateThread(nil,0,@SendPass,nil,0,tid);
end;

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #4

如楼上所示

 

C

chen_liang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-25

• #5

to zhuangbx
释放用什么函数？

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-27

• #6

退出线程并返回一个int ExitThread
得到线程的返回值 GetExitCodeThread
强行结束线程(如一些死循环线程) TerminateThread

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-06-27

• #7

退出线程并返回一个int ExitThread
得到线程的返回值 GetExitCodeThread
强行结束线程(如一些死循环线程) TerminateThread