Application.ProcessMessages

[=LeonZone=]

Пишу службу... Есть ли там(в службах) что-то подобное Application.ProcessMessages? Просто как только вставляю в код безконечный цикл служба перестает реагировать на остановку/паузу, вообщем виснет. Помогите плиз!

Да, и ещё: как сделать, чтобы служба была постоянно запущена? То есть, если она ничего не делает, то при запуске пишет: Служба была запущена и затем остановлена. Некоторые службы автоматически останавливаются, если им нечего делать...

[=LeonZone=]

Неужели никто не пожет мне помочь? Пожалуйста! Очень надо

[Air]

Во-первых :

application.ProcessMessages; В модуле Forms, добавь его в список.

Во-вторых :

делай так:

Var
Stop:boolean;
...

procedure TService1.ServiceCreate(Sender: TObject);
begin
Stop:=false;
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
 while not Stop do
  begin
   sleep(100);
//   дополнительные функции - выполняются на протяжении работы сервиса
 end;
end;
...

{Где-то в коде, когда надо завершить сервис пишешь}
Stop:=true;
{Сервис закончит работу}

Все дополнительные функции легко можно реализовать через таймеры.
Будут вопросы говорите.

[Simply-Art]

uses Forms;
Var
cn:byte;

procedure TService1.ServiceExecute(Sender: TService);
begin
//cn по умалчанию ноль вроде
 while 0<>0 do // ты ведь писал что у тя бесконечный цикл :)
  if cn=1 then exit else
   if cn=0 then
    begin
     application.ProcessMessages;
     //твой код
     //в коде присваиваем cn:=1 то выходим, cn:=2 (от двух и более) переходим в паузу, cn:=0 переход в основной код
    end 
    else
   begin
    application.ProcessMessages;
    //код при паузе
   end;
end;

[=LeonZone=]

2 Simply-Art & Air:
Спасибо, но я так пробовал! Проблема в том, что из-за этого бесконечного цикла служба НЕ выключается из управления службами, а надо... Если не использовать бесконечный цикл, то она запускается и сразу же закрывается. И как тогда быть?

[Air]

Вот подработал код.

unit Unit1;

interface

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

type
  TService1 = class(TService)
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
    procedure ServicePause(Sender: TService; var Paused: Boolean);
    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
    procedure ServiceDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service1: TService1;
  Stop:Boolean;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
  if CtrlCode = 1 then Stop:=true;
  if CtrlCode = 2 then Service1.DoPause;
  if CtrlCode = 3 then Service1.DoContinue;
end;

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

procedure TService1.ServiceCreate(Sender: TObject);
begin
Stop:=false;
// код, на момент создания потока, один раз при старте
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
while not Stop do
 begin
 sleep(300); // или 100 - эта задержка нужна, чтоб проц не грузить
 // код исполнения (рабочего цикла) при завершении =  ServiceDestroy
 end;
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started:=true;
// код, при событии старра (всегда при старте)
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
Stopped:=true;
// код, при событии остановки
end;

procedure TService1.ServicePause(Sender: TService; var Paused: Boolean);
begin
Paused:=true;
if Stop then Service1.Status:=csStopped;
// код, при событии паузы (всегда при паузе, один раз за один переход)
end;

procedure TService1.ServiceContinue(Sender: TService;
  var Continued: Boolean);
begin
Continued:=true;
// код, при событии продолжения (всегда при продолжении, один раз за один переход)
end;

procedure TService1.ServiceDestroy(Sender: TObject);
begin
// код, при завершении работы сервиса
end;

end.

Обрати внимание на "procedure ServiceController(CtrlCode: DWord); stdcall;"

Может это и наворочено, но пока это единственное решение.

Будут вопросы говорите.

[=LeonZone=]

2 Air:
Спасибо тебе огромное!!! Всё отлично работает!

[=LeonZone=]

А как можно организовать общение программы со службой? Поясню:
надо, чтобы при запуске программы запускалась служба и ей(службе) передавались 2 строковых параметра...

[Alter]

Эта программа, всеголишь тест для проверки правильности кода. Мне надо знать как правильно использовать TServise.
Устанавливаю сервис батником, запускаю вручную в сервисах. Но прога неделает, то что надо( должна менять заголовок у блокнота ).
Посмотрите, что не так.

___________________________________ _______________________
Используйте для вложений не ZIP, а непрерывные RAR архивы. Экономит место и трафик.

[=LeonZone=]

2 Alter:
Поставь свойство Interactive у Service в значение true или пропиши где-нить в коде Service1.Interactive:=true; и всё будет ок