Event1:= CreateEvent(nil, False, False, nil);
 
Simple_thr := TSimpleThrd.Create();
Simple_thr.Resume;
 
try
  MsgWaitForMultipleObjects (1, Event1, False, 2000, QS_ALLINPUT); //2 секунды ждем пока в потоке отработает функция
  if not Simple_thr.Terminated then begin                                      //несделала работу - обрубаем
    Simple_thr.Terminate;
    Simple_thr:= nil;
  end;
finally
  CloseHandle(Event1);
end;

case WaitForSingleObject(Simple_thr.Handle, 2000) of
  WAIT_OBJECT_0: { Всё нормально, обрабатываем результаты };
  WAIT_TIMEOUT: TerminateThread(Simple_thr.Handle); // Уничтожаем тред, привет утечки ресурсов!
else
  { Произошла какая-то ошибка, обрабатываем };
end;

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы