Текущий архив: 2010.01.10;
Скачать: CL | DM;
Вниз
проблема с созданием сервиса (Stopped = False) Найти похожие ветки
← →
2012 (2009-11-20 11:41) [0]Столкнулся с проблемой в обработчике OnStop при написании службы. К примеру:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;
type
TService1 = class(TService)
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
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.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
// ...
Stopped := False;
// ...
end;
end.
При попытке остановить службу cо Stopped = False вылетает сообщение: не удалось остановить службу Тестовая служба на Локальный компьютер. Эта служба не возвращала ошибки. Возможно, это внутренняя ошибка Windows или внутренняя ошибка службы.
Далее нажимаю снова остановить. Индикатор остановки службы не доходит до конца, подвисает, но в конечном итоге служба останавливается с занесением в события ошибки.
← →
2012 (2009-11-20 12:10) [1]может не совсем удачно сформулировал вопрос. Нужно в определенные моменты отменять попытки остановки службы.
Страницы: 1 вся ветка
Текущий архив: 2010.01.10;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.01 c
