Delphi Tips & Tricks

uses
  MMSYSTEM;
-------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
　//一回だけ再生　
  PlaySound(PChar('test.wav'),0,SND_FILENAME or SND_ASYNC);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  wavname :string;
begin
  wavname :='test.wav';
  //くり返し再生
  PlaySound(PChar(wavname),0,SND_FILENAME or SND_ASYNC or SND_LOOP);
end;
//メモリから再生
procedure TForm1.Button3Click(Sender: TObject);
var
  MS :TMemoryStream;
begin
  MS :=TMemoryStream.Create;
  try
    MS.LoadFromFile('test.wav');
    PlaySound(MS.Memory,0,SND_MEMORY or SND_ASYNC);
  finally
    MS.Free;
  end;
end;　
//リソースのサウンドを再生
//リソースの埋めこみ方は他のサイトをを探してください
procedure TForm1.Button4Click(Sender: TObject);
var
  RS :TResourceStream;
begin
  RS :=TResourceStream.Create(hinstance,'TEST','WAVE');
  try
    PlaySound(RS.Memory,0,SND_MEMORY or SND_ASYNC);
  finally
    RS.Free;
  end;
end;