アラーム機能を作るには？

解決

voxy 2008-01-11 15:09:07 No: 29293

12時になったら音を鳴らすというようにアラーム機能を作りたいのですが、
どのようにすれば、よろしいでしょうか？よろしくお願いします。

KHE00221 URL 2008-01-11 19:00:41 No: 29294

一番簡単なのが

procedure TForm11.Timer1Timer(Sender: TObject);
begin
    if TimeToStr(Now) = '12:00:00' then
    begin
      Beep;
    end;
end;

でも 12:00:00 丁度に割り込みがかからないと駄目なので

if Copy(TimeToStr(Now),1,5) = '12:00' then
begin
Timer1.Enabled := False;
Beep;
end;

のようにしたほうがいいかもしれません。

単純に 12:00 に音を鳴らしたいだけならば
[コントロールパネル] - [タスク] に再生した WAV や MP3 を
12:00に実行するように登録すれば出来ますが・・・・

voxy 2008-01-12 07:27:02 No: 29295

KHE00221さんありがとうございます。
これからDelphiを勉強していくので、またよろしくお願いします。

HOta 2008-01-13 06:26:19 No: 29296

がんばってね。