Прерывание в службе Win. аналог Application.ProcessMessages

[jsa]

Здравствуйте.
В оконном приложении с прерыванием в долгом цикле тяжелых вычислений все понятно, можно поставить Application.ProcessMessages и цикл и интерфейс не виснет.
А как быть в службе? Написал службу которая раз в указанный период делает выборку новых данных и обрабатывает. И иногда очередной блок бывает не маленьким. Можно конечно брать небольшими блоками. Но все таки хочется знать как сделать так чтобы службу можно было в произвольный момент поставить на паузу и или выключить штатными средствами и чтобы не выскакивало сообщение о том, что она не отзывается.

[wavebvg]

Поток управления службой не должен заниматься вычислениями.

[Alex2013]

Я тут такой "велосипед" проверил :

Код: Выделить всё

procedure TForm1.TimeSleep ;
Var
   StartTime:QWord;
begin
  StartTime:=GetTickCount64;
  While  GetTickCount64-StartTime<5000 do
  begin
   Application.ProcessMessages;
  end;
  mainform.panel7.Caption:='  Терминал';
end;
...
procedure TForm1.Timer3Timer(Sender: TObject);
begin
...
// Типа "отложенная задержка" не тормозящая исполнение  программы.
// Что для обработчика таймера очень критично .
  TThread.Queue (nil, TimeSleep );
...
end;


Зы
Почти квантовая механика с ее знаменитым "отложенным выбором ".
Application.ProcessMessages; можно было не вызвать а поставить Sleep (100) но я не решился ( как я понял TThread.Queue () "вырывает" исполнение TimeSleep из основного потока программы но черт его знает в каком контексте он выполняется . Не хватало еще ядро оси повесить ) . А так вроде работает и не тормозит таймер.

Особый прикол несколько вызовов TThread.Queue подряд (По идее поток программы "проскочит дальше", а коды в вызываемых процедурах "станут в очередь" вроде возможно "параллельное исполнение" однако реально новый поток не создается, а просто используется некий "другой" ( возможно родительский например проводника ) )

[Alex2013]

В догонку !
Погонял TThread.Queue более "вдумчиво" увы не все така гладко как мне бы хотелось ( Вроде работает однако задержка "через раз" срабатывает не так как мне нужно )