[osminog]

Всем добрый день!
Есть код (приведенный ниже), требуется установить таймер, чтобы сообщения выводились ч/з 3 секунды!
... как реализовать, нет опыта работы с Timer
Кто знает, помогите, плиз!

Код:

procedure TForm1.Image3Click(Sender: TObject);
begin
  // проверка 1-й службы
  if ServiceGetStatus('','A1')=SERVICE_RUNNING then
  Label2.Caption:=(' запущена ')
  else Label6.Caption:=(' не запущена ');
  // проверка 2-й службы
  if ServiceGetStatus('','A2')=SERVICE_RUNNING then
  Label8.Caption:=(' запущена ')
  else Label10.Caption:=(' не запущена ');

[M.A.D.M.A.N.]

Точно так же как и кнопку, только в свойствах проставь интервал.

[osminog]

Сообщение от M.A.D.M.A.N.

Точно так же как и кнопку, только в свойствах проставь интервал.

наверное не правельно поставлен мною вопрос!
Требуется, чтобы м/у службами А1 и А2 прошло 3-5 секунд
(компилю в Delphi 2010)

[MiraLaklamon]

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

наверное не правельно поставлен мною вопрос!
Требуется, чтобы м/у службами А1 и А2 прошло 3-5 секунд
(компилю в Delphi 2010)

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

[osminog]

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

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

получил ответ, что служба А1 запущена (или нет)
прошло 3-5 сек
получил ответ, что служба А2 запущена (или нет)

[M.A.D.M.A.N.]

Понял, тебе нужен отложенный вызов процедуры. Я бы сделал на потоке, внутрях которого Sleep(3000) и вызов твоего обработчика.

[MiraLaklamon]

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

получил ответ, что служба А1 запущена (или нет)
прошло 3-5 сек
получил ответ, что служба А2 запущена (или нет)

В таймере выставь у свойства "Interval" нужное значение в миллисекундах (3000 - значит 3 секунды). И примерно такой код в обработчике "OnTimer" у таймера.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Tag:=Timer1.Tag+1;
  if Odd(Timer1.Tag) then
  begin
    // проверка 1-й службы
    if ServiceGetStatus('','A1')=SERVICE_RUNNING then
    Label2.Caption:=(' запущена ')
    else Label6.Caption:=(' не запущена ');
  end else
  begin
    // проверка 2-й службы
    if ServiceGetStatus('','A2')=SERVICE_RUNNING then
    Label8.Caption:=(' запущена ')
    else Label10.Caption:=(' не запущена ');
  end;
end;

Сообщение от M.A.D.M.A.N.

Понял, тебе нужен отложенный вызов процедуры. Я бы сделал на потоке, внутрях которого Sleep(3000) и вызов твоего обработчика.

Для этой задачи это помоему излишнее усложнение.

[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. Запускаешь вторую службу