Как прикрутить WaitForSingleObject к окончанию потока

[TwiX]

В справке написано, что WaitForSingleObject может ожидать завершения потока. Но как? Пробовал пихать туда хэндл потока - ничего.

[Stilet]

Как пробовал?

[TwiX]

a=class(TThread)
private
  procedure Execute; override;
end;

begin
  with a.Create(false) do
    waitForSingleObject(handle);
end;

В execute - beep;

[Stilet]

Ну не знаю...
Я пишу

var t:tt;
begin
 t:=tt.Create(false);
 WaitForSingleObject(t.Handle,INFINITE);
 ShowMessage('Отработала');
 t.Free;
end;

Где tt -

tt = class(TThread)
...
procedure tt.Execute;
var i:integer;
begin
 for i := 0 to 10 do begin

  Sleep(100);
  //Application.ProcessMessages;
 end;
  { Place thread code here }
end;

И главный поток нормально ждет положенное, а потом выкидывает сообшение Отработало

[GunSmoker]

Сообщение от TwiX

waitForSingleObject(handle);

Как вы умудрились вызвать так функцию WaitForSingleObject, если у неё - два параметра?

Сообщение от TwiX

В execute - beep;

Значит поток завершиться практически мгновенно.

Сообщение от TwiX

Пробовал пихать туда хэндл потока - ничего.

if not WaitForSingleObject(Handle, INFINITE) then
  RaiseLastOSError;

[TwiX]

2GunSmoker, писал прям тут. Ну и что, если мгновенно завершается, просто не должен ждать. Stilet, спасибо... Вроде так же писал - сейчас ещё раз попробую