Воспроизводить сигнал каждый час

[Konstantin1706]

Подскажите подалуйста, как мне сделать так чтобы у меня каждый час поспроизводился сигнал.
С уважением Константин

[Пепел Феникса]

кладете на форму таймер, ставите период в час(в миллисекундах это 3600000 помоему)
и в событии его ставите воспроизведение сигнала

[Konstantin1706]

Ага, спасибо, а он будит сигналить каждый час в 13:00, 14:00, 15:00 и т.д. ил каждый час от запуска программы?

[lexaltd]

каждый час от запуска программы

так будет каждый час в 13:00, 14:00, 15:00

var
  Form1: TForm1;
  startTime : TTime;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
 position : Integer;
begin
 startTime := Now;
 position := AnsiPos(':',TimeToStr(startTime));
 if (Copy(TimeToStr(startTime),position + 1, 2) ='00') and
 (Copy(TimeToStr(startTime),position + 4, 2) ='00') then
   // тут ваш сигнал
end;

Timer1.Interval := 1000; - должно быть так - чтоб таймер каждую секунду проверял

[Вадим Буренков]

Такую программу можно сделать без использования VCL чтобы не было окна (только один процесс отслеживающий время и производящий сигнал.)

[Konstantin1706]

Спасибо большое

[SERG1980]

Сообщение от Вадим Буренков

Такую программу можно сделать без использования VCL чтобы не было окна (только один процесс отслеживающий время и производящий сигнал.)

Да сделайте чтобы при запуске программа скрывалась и всё