Сообщение в определенное время.

[D.O.G]

Доброго времени суток. Нужно сделать вывод сообщения в в определеное время.
то что попробывал сделать.

if Label2.Caption:=TimeToStr(12:45) then
  ShowMessage('Обед');
end;

[Sparkman]

Сообщение от D.O.G

Доброго времени суток. Нужно сделать вывод сообщения в в определеное время.
то что попробывал сделать.

if Label2.Caption:=TimeToStr(12:45) then
  ShowMessage('Обед');
end;

if Time=StrToTime('12:45') then
   ShowMessage('Хватит работать! Иди ешь! ^_^');

[dmitriegorovih]

if Label2.Caption:=TimeToStr(12:45) then
ShowMessage('Обед');
end;

не а как вы проверяете? Надо поставить таймер примерно 1 милисекунду и в оброботчик вставить вот это сам тока что проверил работает

procedure TForm1.Timer1Timer(Sender: TObject);
var
 SystemTime: TSystemTime; //Некое время
 Chas,minute,sekunda,milisekunda:integer;
begin
GetLocalTime(SystemTime); //Получаем системное время
chas:=SystemTime.wHour; //Результату присваиваим Час(wHour)
minute:=SystemTime.wMinute;
sekunda:=SystemTime.wSecond;
milisekunda:=SystemTime.wMilliseconds;
If (chas=10) and (minute=11) and (sekunda=10) and (milisekunda=0) then begin
showmessage('Обед');
end;
end;

да кстати забыл сказать вот это

if Label2.Caption:=TimeToStr(12:45)

если вы его поставите то showmessage(и) вас закидают тысячами сообщениями, можно даже подсчитать это примерно "60 000" сообщений

[D.O.G]

Спасибо

Ни каких действие не происходит. временные границы выставил молчит.

[Sparkman]

Сообщение от D.O.G

Ни каких действие не происходит. временные границы выставил молчит.

попробуйте написать

ShowMessage(TimeToStr(Time));

что выдаст?
И в соответствии с результатом пишете - либо '12:45', либо '12:45:00'

Как то так:

if (Time>=StrToTime('12:45:00')) and (Time<=StrToTime('12:46:00')) then
   ShowMessage('Обед');

[_SERGEYX_]

Я делал невидимый Edit, ставил таймер на 1 сек
edit.text:= formatdatetime('hh:nn',now) и обрабатывал Edit OnChange.
Т.е. событие проверялось один раз минуту. Зачем чаще?
if edit.text = '12:45' then

[D.O.G]

А в виндовс 7 те же самые переменные для отслеживания системного времени?

[DIgorevich]

Сообщение от D.O.G

А в виндовс 7 те же самые переменные для отслеживания системного времени?

естественно

[dmitriegorovih]

Ни каких действие не происходит. временные границы выставил молчит.

Не может быть :\, а можете привести исходник как именно вы выставили временные границы?

[D.O.G]

procedure TForm1.Timer1Timer(Sender: TObject);
var
 SystemTime: TSystemTime; //Некое время
 Chas,minute,sekunda,milisekunda:integer;
begin
 Label2.Caption:=TimeToStr(now);
 GetLocalTime(SystemTime); //Получаем системное время
 chas:=SystemTime.wHour; //Результату присваиваим Час(wHour)
 minute:=SystemTime.wMinute;
 sekunda:=SystemTime.wSecond;
 milisekunda:=SystemTime.wMilliseconds;
 If (chas=13) and (minute=20) and (sekunda=00) and (milisekunda=0) then begin
 showmessage('Обед');
end;

end;

все подхватывает правельно. showmessage пропускает почему то.