Выполнить действие в определённый день недели

[Shouldercannon]

Возможно, такая тема уже была. Как в определённый день недели (понедельник, вторник, среда или иной день) выполнить какое-либо дейтвие?
Есть 7 CheckBox:

• Понедельник
• Вторник
• Среда
• Четверг
• Пятница
• Суббота
• Воскресенье

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

Поспешил с созданием темы.
Решение: День недели

[eoln]

Назначить checkbox'ам свойство Tag от 1 до 7 соответственно и

var
  i: integer;
begin
  for i :=0 to form1.componentcount -1 do
    if (form1.components[i] is TCheckBox) then
      if (form1.components[i].Tag=DayOfTheWeek(now))
        and ((form1.components[i] as TCheckBox).checked)
          then showmessage('work');

[UPD]
Ну если уже не нужно, то хотя бы как вариант

[Shouldercannon]

Все варианты сгодятся, чем больше, тем лучше

[Yurk@]

eoln, если каждую секунду перебирать все компоненты на форме в поисках чекбокса(ов) - я думаю это напряжно будет
Shouldercannon, если я правильно понят вопрос - загляни сюда

[eoln]

Не особо напряжно, а таймер можно увеличить, скажем, раз в 30-40 секунд, если точность не нужна. Код в качестве примера функции DayOfTheWeek приведён и ничуть не оптимизирован. Можно заранее чекбоксы найти, можно через if/case, можно и расписать.

dt := DayOfTheWeek(now);
case dt of
  1: if checkbox1.checked then...
  2: if checkbox2.checked then...

Вариантов куча и ещё чуть-чуть

P.S. Кажись, delphisources упал

[GunSmoker]

Для этого есть планировщик задач (Task Scheduler). На указанное время создаётся задача, в командной строке - запуск нашей программы с параметром. Параметр указывает номер задачи, которую нужно выполнить. В указанное время запустится наша программа, увидит, что у неё задан параметр, выполнит задачу и завершиться. При необходимости, в параметрах задачи планировщика можно настроить повтор задачи ("запускать каждые N дней/часов").

Читать:
http://www.transl-gunsmoker.ru/2009/...g-post_14.html