Запуск процедуры в конкретное время

[yulia]

Подскажите, пожалуйста...

Мне надо чтобы в определенное время (например 5 часов вечера) ежедневно создавался поток и выполнялось определенное действие..

Скажите, пожалуйста, как можно организовать его создание именно в определенное время?

У меня только одна идея, что сразу при запуске программы создавать поток, в нем каждую минуту проверять сколько времени и если 5 часов, то запускать выполнение дествия... Но получается, что оно постоянно будет грузить ресурсы...

[Terran]

Можете сделать так:

Procedure TForm1.Timer1Timer(Sender: TObject);
Var
T: String;
Begin
T:=TimeToStr(Now);
If T='17:00:00' Then
Begin
//Создаёте поток и выполняете действия
End;
End;

[yulia]

Если я правильно понимаю, то таймер будет каждую, например, минуту проверять сколько времени... А это не будет останавливать основную работу проги?

[Terran]

А это не будет останавливать основную работу проги?

Нет. Ставите интервал таймера 1000ms и всё. Когда ваше время компьютера совпадёт с установленным, то выполнится действие. Таймер программу ничуть тормозить не будет.

[yulia]

Спасибо, буду пробовать.. ))

[yulia]

Да.. не тормозит.. А скажите, пожалуйста, если я не буду создавать поток, а просто в таймере начну действия выполнять, это будет тормозить?

[Terran]

А скажите, пожалуйста, если я не буду создавать поток, а просто в таймере начну действия выполнять, это будет тормозить

Вы все действия, которые должны будут выполняться в определённое время можете поставить в таймер. Если вам поток нужно создать по времени, то его можете так же поставить туда. Вот это условие

If T='17:00:00' Then
Begin
//Создаёте поток и выполняете действия
End;

в данном случае выполнится только один раз, когда системное время будет 17:00:00. А на счёт будет ли прога тормозить, то это уже всё зависит от потока.

[yulia]

Да, я все поняла.. Мне поток нужен был только для того, чтобы не останавливать основную работу программы и как я понимаю, то с таймером можно и без него обойтись.. спасибо... ))

[myz038]

Terran, День добрый а как правильно прописать на Timer1.
Чтоб Forma2 открывалась через определенный интервал примерно каждые 2часа.
А закрывалась через 10 мин.
Пример зашел в программу через 2 часа открылась форма 2, через 10 она закрылась, потом опять через 2 часа открылась и через 10 опять закрылась.и т.д.

[Arigato]

Интервал таймера считается в миллисекундах. Посчитайте, сколько миллисекунд будет в 2-х часах и выставьте такой интервал срабатывания.