Как создать событие(которое выполняется в определённое время)

[micaell]

Помогите сделать так чтобы процедура выполнялась в определённое время каждого дня!

[AVer]

Ставишь на таймер:

if FormatDateTime('hh:mm:ss',now) = 'xx:xx:xx' then
...

Где 'xx:xx:xx' время в формате ЧЧ:ММ:СС

[Prowler]

Мне таймером не нравится пользоваться.
Можно так попробовать:

var
hand:Thandle;
.......
hand:=CreateEvent(nil,true,false,'e v');
while {чё-нить bool}
do
begin
.......//Проверяем время и что нибудь делаем....
whaitForSingleObject(hand,1000);//Задержка на 1 секунду...
end;

Можно запихнуть ето в отдельный поток и пусть работает...
Удачи!

[Сильванович Михаил]

Ставим на таймер проверку даты, таймер, я думаю не рационально использовать часто, поэтому Interval:=36000000, если дата нужная нам, то убиваем этот таймер и запускаем таймер с Interval:=1000, где будет проверяться время: если время нужное, то выполняем какие-то действия:

uses Windows,Messages;

var
...
Event1,Event2: integer;

.....

procedure OnTimer2;
begin
if {сюда ставим проверку времени} then
begin
{ что-нибудь делаем }
KillTimer(Event2);
end;
end;

procedure OnTimer1;
begin
if {сюда ставим проверку даты} then
begin
SetTimer(Wnd,Event2,1000,@OnTimer2) ;
KillTimer(Event1);
end;
end;

begin
...
SetTimer(Wnd,Event1,36000000,@OnTim er1)
...
end.

[zetrix]

Забудте про таймер, проц грузить незачем... Лучше создать событие-пустышку и всё (Prowler писал код - выше смотрите)

[Сильванович Михаил]

Интересно, как сильно грузит CPU таймер с интервалом в 36000000?