Безусловное завершение работы приложения

[Aleksandr_59]

Программа работает с веб-камерой.
В цикле копирует картинку. Если по каким-то причинам не завершить цикл и не закрыть камеру процедурой:

begin
  if hWndC <> 0 then
  begin
    SendMessage(hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0);  //"отключаемся" от веб-камеры
    hWndC := 0;
  end;
end;

то команда Application.Terminate не работает, приложение не закрывается. Как безусловно завершить работу приложения?

[Пепел Феникса]

а надо завершать работу по человечески.

[Aleksandr_59]

Сообщение от Пепел Феникса

а надо завершать работу по человечески.

Логично... Универсальный совет: хочешь, чтобы прога работала нормально, пиши её без ошибок. И ведь сразу не догадаешся.

[RinatV]

В OnClose выставь флаг и используй его для завершения вечного цикла

[Stilet]

В цикле копирует картинку.

А может этот цикл в поток стоит вывалить?

команда Application.Terminate не работает,

Не удивительно. Этот метод всего лишь запрашивает у винды разрешения корректно завершится, но к самому завершению имеет лишь косвенное отношение в отличии от ExitProcess или Halt (который является оберткой для первой.)

И ведь сразу не догадаешся.

А ведь совет действительно верный - Винда не приветствует вольное завершение, и на то есть причины.

[Aleksandr_59]

В цикле чтения картинки из веб-камеры используется конструкция

While bScan do

Переменнная bScan глобальная булевого типа, по нажатию кнопки или срабатыванию таймера цикл должен прекратиться через установку этой переменной в false. Это работает, но как-то нестабильно. Такое ощущение, что программа на разных компьютерах не всегда "дотягивется" до этой переменной, из-за этого не могу закрыть программу и прочие "неудобства".
Я понимаю, что надо искать причину, но мыслей уже никаких. Только принудительно закрыть прогу и снова перезапустить, всё восстанавливается.

[3D Hunter]

В конце цикла добавьте строчку:

Application.ProcessMessages;