[MiraLaklamon]

[quote=osminog]

Сообщение от MiraLaklamon

Ндя... А причём тут картинка Image3 и его событие OnClick ? Речь вроде идёт о таймере?
огромное спасибо, так как Вы описали = работает!

тока есть момент, чтобы это стартовало по нажатию кнопки

... и если не трудно, расшифруйте код:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Odd(Timer1.Tag) then
  begin
...
  end;

У любого компонента есть свойство Tag типа Integer, которое можно использовать для собственных нужд. В данном случае при каждом срабатывании события таймера (т.е. каждые 3 секунды) это свойство увеличивается на 1 и потом проверяется - если оно нечётное то проверяется запущена ли служба А1, иначе (т.е. если чётное) проверяется запущена ли служба А2.
Но это был просто пример, в реальных программах лучше для этого объявлять переменную-поле у формы.
А чтобы стартовало по кнопке - в событии OnClick кнопки можно написать так:

Код:

  Timer1.Enabled:=not Timer1.Enabled;

Тогда каждое нажатие кнопки будет то включать, то выключать таймер.

[osminog]

Опишите, еще, кто знает, запуск таймера по кнопке (картинке) относительно этой темы! Заранее, спасибо!

[MiraLaklamon]

Сообщение от osminog

Опишите, еще, кто знает, запуск таймера по кнопке (картинке) относительно этой темы! Заранее, спасибо!

В сообщениях выше уже всё описано. Куда уж больше описывать то?
Таймер запускается если его свойство Enabled установить в True.
Выделяешь мышкой кнопку (картинку), в инспекторе объектов выбираешь закладку Events выбираешь нужное событие (OnClick например) и дважды щёлкаешь в поле справа от него - появится заготовка обработчика события - вот сюда и вписывай всё что должно произойти по этому событию, например устанавливай в свойство Enabled таймера True чтобы запустить его.
Но лучше прочитай какую-нибудь книгу по Delphi, потому что вопрос настолько "детский", всё равно что спросить "Как пользоваться погремушкой?"

[osminog]

Сообщение от MiraLaklamon

А что значит "чтобы м/у службами А1 и А2 прошло 3-5 секунд"

службы запускаються должны с промежутком в 5 секунд! если их сразу вместе запускать = то они висят и не запускаются, поэтому нужно, чтобы стортовала сначала одна служба (получить ответ), затем вторая...

[poli-smen]

Сообщение от osminog

службы запускаються должны с промежутком в 5 секунд! если их сразу вместе запускать = то они висят и не запускаются, поэтому нужно, чтобы стортовала сначала одна служба (получить ответ), затем вторая...

1. Запускаешь первую службу
2. Делаешь паузу:
   Код:

   Sleep(5000);

3. Запускаешь вторую службу

Или так:

1. Запускаешь первую службу
2. Включаешь таймер на 5 секунд
   Код:

   Timer1.Interval := 5000;
   Timer1.Enabled := True;

3. В обработчике события таймера (OnTimer):
   1. Отключаешь таймер:
      Код:

      Timer1.Enabled := False;

   2. Запускаешь вторую службу

[angvelem]

Сообщение от poli-smen

3. В обработчике события таймера (OnTimer):

1. Отключаешь таймер:
   Код:

   Timer1.Enabled := False;

2. Запускаешь вторую службу

И таймер благополучно отключается сразу после запуска.

[poli-smen]

Сообщение от angvelem

И таймер благополучно отключается сразу после запуска.

Ну это я отвечал на частный вопрос: "Как запустить службы с промежутком 5 секунд" и конечно же этот таймер не имеет отношения к тому таймеру который 3-5 секунд проверяет запущены ли службы

[cotseec]

"Как запустить службы с промежутком 5 секунд"

зачем плодить таймеры?
CreateProcess() и WaitFoSingleObject() ведь никто не отменял
как запустить и подождать

[poli-smen]

Сообщение от cotseec

зачем плодить таймеры?
CreateProcess() и WaitFoSingleObject() ведь никто не отменял
как запустить и подождать

А какое отношение CreateProcess имеет к запуску служб?

[osminog]

Сообщение от cotseec

зачем плодить таймеры?
CreateProcess() и WaitFoSingleObject() ведь никто не отменял
как запустить и подождать

таймеры долой!

а вот это Sleep(5000); = не работает для выполнения последующих команд! (((

[angvelem]

Добавь ProcessMessages.

[cotseec]

Сообщение от poli-smen

А какое отношение CreateProcess имеет к запуску служб?

к службам - никакого ошибочка вышла, службы - это OpenService и StartService

вопрос к ТС: а как вы запускаете ваши службы?
вы все еще запускаете? тогда мы идеи к вам (с)