                      PLAYWAV
    (C)Copyright 1999 Irvsoft system Design
    Coding by Dr.F.W.Irving
    Email: f.irving@virgin.net
Play Wave is a small demo program to show how to call
wave files with MMSystem.dll and two lines of coding.
Just drop a button or any visible component onto your
form, add MMSystem to your Uses, then add a variable
to the procedure and two lines of code and it should
work just fine.   the *.wav file must be in the same
folder as the program.
There is no warranty given or implied with this program
run at your own risk.

This coding was written in Delphi3 but it will work with 
Delphi 1,2,3 & 4.

Don't knock it, it's simple but very effective.

 ---------------------------------------------------------

unit UPlay;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MMSystem;

type
  TPlayWav = class(TForm)
    PlayBtn: TButton;
    ExitBtn: TButton;
    Play2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure ExitBtnClick(Sender: TObject);
    procedure PlayBtnClick(Sender: TObject);
    procedure Play2Click(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  PlayWav: TPlayWav;

implementation

{$R *.DFM}

procedure TPlayWav.ExitBtnClick(Sender: TObject);
Var
p : Array[0..79] of Char;
begin
StrPCopy(p, 'over.wav');
SndPlaySound(p, 0);
Application.Terminate;
end;

procedure TPlayWav.PlayBtnClick(Sender: TObject);
Var
p : Array[0..79] of Char;
begin
StrPCopy(p, 'clear.wav');
SndPlaySound(p, 0);
end;

procedure TPlayWav.Play2Click(Sender: TObject);
Var
p : Array[0..79] of Char;
begin
StrPCopy(p, 'burp.wav');
SndPlaySound(p, 0);

end;



end.
