Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Правильное закрытие Handl - а


learner ©   (2006-06-11 01:43:00) 

Помогите разобраться.
Я создаю нить, которая выводит сообщение и закрываю Handle нити.
Но я его закрываю раньше, чем нить завершиться.
Разве так можно ?
Если нет, то как надо действовать ?
function MessBoxThread(const pMess:PChar):DWord; stdcall;
begin
MessageBox(0,pMess,PChar(ParamStr(0)),MB_OK or MB_ICONINFORMATION);
ExitThread(0);
Result:=0;
end;

procedure MessBox(const Mess:string);
var
ThreadHandle,ThreadID:DWord;
begin
ThreadHandle:=CreateThread(nil,0,@MessBoxThread,PChar(Mess),0,ThreadID);
if ThreadHandle<>0 then CloseHandle(ThreadHandle);
end;


DrPass   (2006-06-11 02:27:00) [1]


> Разве так можно ?

Можно, но абсолютно ни к чему. CloseHandle не убьет поток, пока он выполняется, зато убъет единственный дескриптор, с помощью которого ты можешь управлять этим потоком. Убивай после того, как поток отработает (тут тебе пригодится WaitForSingleObject)


Наверх

Титульная страница Поиск, карта сайта Написать письмо