Будильник

[cargo29]

Привет, Как сделать что бы в определеное время выполнялось определеное действие???

procedure TForm1.Timer2Timer(Sender: TObject);
var
a:TTime;
begin
if DateTimePicker1.Time=a then
ShowMessage('dasda');
end;

так не хочет не понимаю почему

[MyLastHit]

Ты "а" вообще нигде не присваиваешь? Оно же у тебя 00:00:00.

Функция TimeToStr(today) дает строку текущего времени. По ней можно сравнивать. Ну еще по Now можно...

[Demien]

Кидаешь на форму TTimer, устанавливаешь интервал 500

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=TimeToStr(now);
  if label1.Caption = TimeToStr(DateTimePicker1.Time) then
  begin
    // Событие
  end;
end;

[ArtGrek]

есть другая идея,
задаеш нужное время когда должен звенеть будильник,
нажимаеш что то типа ок,
там отнимаеш от заданого времени насотящее и ставиш его в интервал таимера,
а потом запускаеш таимер,
ровно через то время будет звенеть будильник

[Demien]

ArtGrek, я что-то подобное писал.
Очень долго мучался с прибавлением и отниманием времени...(
Но в принципе так будет правельней!

[cargo29]

Сообщение от Demien

Кидаешь на форму TTimer, устанавливаешь интервал 500

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption:=TimeToStr(now);
  if label1.Caption = TimeToStr(DateTimePicker1.Time) then
  begin
    // Событие
  end;
end;

Спасибо, работает, а то по утрам встать не могу ........ )))
но понять не могу почему то не работало там было присвоено время....

[cargo29]

ArtGrek я твою мысль расматрю интересная... ))) а есть у кого нить мелодии хорошиее как в крэк программах????

[Alt]

http://www.keygenmusic.net/?lang=ru

[cargo29]

Сообщение от Alt

http://www.keygenmusic.net/?lang=ru

и как такие файлы в саму програму внедрить, я некоторые расширения в первый раз вижу....

[Alt]

Используй аудио-конвертеры чтобы изменить разрешение файла на то, которое нужно твоей программе.