DoShutdown, DoStop в сервисах Delphi

[Даниил_глазко]

Всем привет. Написал тестовый сервис:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ExtCtrls;

type
  TService1 = class(TService)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.Timer1Timer(Sender: TObject);
begin
Service1.DoShutdown;
Service1.DoStop;
end;

end.

Т.е. После запуска сервиса, по прошествию 2 секунд сервис должен выключится, однако вместо этого сервис повисает с состоянием SERVICE_STOP_PENDING(наверное).

Скрин в Диспетчере служб:
http://screenshot.su/show.php?img=23...c9a2baab0f.jpg

Система Windows 7 x64 Professional, Delphi 7. Заранее спасибо!

[Аватар]

http://www.programmersforum.ru/showthread.php?t=196295

[Даниил_глазко]

Сообщение от Аватар

http://www.programmersforum.ru/showthread.php?t=196295

*Офтоп* Аватар, сколько же ты мне раз уже помогал за 2 года)))

*Сабж*
Но статус сервиса же меняется, значит тймер работает. Почему служба не выгружается

ок... Протестил, залил в TService1.ServiceStart, сервис вырубается нормально

В

procedure TService1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  Service1.DoShutdown;
end;

тоже не работает