Delphi - hitkik @ ウィキ

• Delphiですごく簡単に音をならす

http://www9.ocn.ne.jp/~hare-15/delphi/tips_03.html

uses 部に mmsystem を追加する
SndPlaySound(PChar('test.wav'), SND_LOOP or SND_ASYNC);
SND_LOOP 繰り返し
SND_ASYNC 非同期再生
SND_SYNK 同期再生

SND_SYNKにすると、複数ファイルを連続再生できる。

以下広告