VAR
MyThread : Array[1..10] of TMyThread;
rWait : Cardinal;
Begin
For i = 1 to 10 do
Begin
MyThread := TMyThread.Create(....)
MyThread.FreeOnTerminate := true;
MyThread.Resume;
End;
repeat
rWait:= WaitForMultipleObjects(i, @MyThread, True, 100);
Application.ProcessMessages;
until rWait<>WAIT_TIMEOUT;
ShowMessage('와우~! 쓰레드가 끝났다~");
End;
이렇게 하니까 되네요^^
하두고 님이 쓰신 글 :
: For i = 1 to 10 do
: Begin
: With TMyThread.Create(....) do
: Begin
: .....
: FreeOnTerminate := true;
: Resume;
: End;
: End;
:
: 이렇게 했는데요.
:
: 모든 쓰레드가 종료될때 까지 기다리는 방법이 있는지요?
|