unit BFBJYY;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,  Buttons, ComCtrls,StdCtrls,MMSystem;type
  TForm 999= class(TForm)
    BitBtn2: TBitBtn;
    TreeView1: TTreeView;
    BitBtn1: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);    procedure TreeView1DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form999: TForm999;
  PtrSound : PChar;
hRes : THandle; {handle to the loaded resource
if 0 indicates nothing playing}implementation{$R *.dfm}
 {$R mydce.res}
procedure TForm999.BitBtn2Click(Sender: TObject);
begin
 sndPlaySound(nil,SND_ASYNC);
end;procedure TForm999.BitBtn2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;procedure TForm999.BitBtn2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clBLUE;
end;procedure TForm999.TreeView1DblClick(Sender: TObject);
begin
     if TreeView1.Selected<>Nil then
  begin
if TreeView1.Selected.text = '1.  WRQH' then
  PlaySound(PChar('DCW1'), hInstance, snd_ASync or snd_Resource)
else  if TreeView1.Selected.text = '2.  YYAH' then PlaySound(PChar('DCW2'), hInstance, snd_ASync or snd_Resource)
else  if TreeView1.Selected.text = '3.  WCF' then PlaySound(PChar('DCW3'), hInstance, snd_ASync or snd_Resource)else  if TreeView1.Selected.text = '5.  YF' then PlaySound(PChar('DCW5'), hInstance, snd_ASync or snd_Resource)
     else  if TreeView1.Selected.text = '6.  HS' then PlaySound(PChar('DCW6'), hInstance, snd_ASync or snd_Resource)
else  if TreeView1.Selected.text = '7.  KNOW' then PlaySound(PChar('DCW7'), hInstance, snd_ASync or snd_Resource)
else  if TreeView1.Selected.text = '4.  DMMSJ' then PlaySound(PChar('DCW8'), hInstance, snd_ASync or snd_Resource)
end;
end;procedure TForm999.BitBtn1Click(Sender: TObject);
begin
close;
end;
end.