用 DELPHI 为 WINDOWS 做一个带声音的模拟闹钟

   嗨，大家好。我是梦寻，这是我的第一次发帖子，请大家多多鼓励、多多
支持，毕竟嘛，予人方便予己方便。OK,转入正题，现在就来讲如何做一个带
响声的表盘式的 CLOCK。
   首先我们应选择新建一个程序，并在窗体中加入以下元件：
    Timer1: TTimer;
    Image1: TImage;//时钟的表盘
    Edit1: TEdit;  //日期框
    Label1: TLabel;
    PopupMenu1: TPopupMenu;
   而后在 {$R *.DFM} 下面加入这么一句 {$R CLOCKSOU.RES} <--时钟的声音文件,
  (注：CLOCKSOU.RES 是先用windows的记事本新建一个文件，并加入以下几行
        CLICKBEL  WAVE "CLICKBEL.WAV"
        TIMEBELL  WAVE "TIMEBELL.WAV"
    并存为文件 CLOCKSOU.RC 然后在 DOS解面下用BRCC32.exe 将 CLOCKSOU.RC 编译
 为 DELPHI 格式的资源文件 CLOCOSOU.RES,当然，您如果嫌步骤太烦，那吗最简单的,
 到我的主页 http://www.suye.8u8.com 下载完整的程序代码)
   OK，在完成上面的步骤后我们就可以在窗体的代码筐中输入以下代码。
 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,unit2, StdCtrls,inifiles,MMSystem, Menus;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    Edit1: TEdit;
    Label1: TLabel;
    PopupMenu1: TPopupMenu;
    pop1: TMenuItem;
    pop2: TMenuItem;
    pop4: TMenuItem;
    pop3: TMenuItem;
    pop5: TMenuItem;
    N1: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure timdrow(tim:real;long,col:integer);
    procedure FormCreate(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure pop1Click(Sender: TObject);
    procedure pop2Click(Sender: TObject);
    procedure pop4Click(Sender: TObject);
    procedure pop5Click(Sender: TObject);
    procedure pop3Click(Sender: TObject);
    procedure tiniwr();
    procedure FormClose(Sender: T