Dimitry Sibiryakov,
Собственно, я так и делал. В обработчике TService.OnServiceShutdown с целью тестирования я сделал такой цикл:
1.
2.
3.
4.
5.
6.
7.
8.
9.
Log('ждем 3 минуты...');
for i:=1 to 180 do
begin
status:=csStopPending;
TMyService.ReportStatus; // внутри ReportStatus уже есть увеличение счетчика Inc(dwCheckPoint)
sleep(1000);
Log('i='+IntToStr(i));
end;
Log('ожидание закончено.');
Как только TService.OnServiceShutdown сработал, судя по логу выдало i=1 и i=2, прошло всего 2 сек и служба вырубилась.
