Ребят, теперь новая проблема
вот код:
Код:
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 локальный

)