Показать сообщение отдельно
  #6  
Старый 23.09.2011, 03:02
Ahton Ahton вне форума
Прохожий
 
Регистрация: 05.01.2007
Сообщения: 38
Репутация: 10
По умолчанию

Ребят, теперь новая проблема
вот код:
Код:
procedure TForm1.Timer2Timer(Sender: TObject);
Var
T: String;
Begin
T:=TimeToStr(Now);
If T='9:58:00' Then
Begin
showmessage('123');
End;
End;
Ради интереса и проверка работоспособности сделал вывод мессэджа. Во первых код работает если время указать без 0 в часах, т.е. не 09:58:00 а 9:58:00, ну это мелочи, а вот отработал он забавно - вылезло 61 окно сообщения хде грабли?
ЗЫ - это что получается, код перезапуска службы будет 61 раз выполняться - это же сразу DDoS локальный )
Ответить с цитированием