HDDの整理をしてたら出てきたので投稿してみる。動かないかもしれない。Packしてても再生可能なはず。
HDDの整理をしてたら出てきたので投稿してみる。動かないかもしれない。Packしてても再生可能なはず。
// 2 MB 以上のWAVE 形式のファイルをメモリ上で再生// http://dev.onionsoft.net/trac/browser/trunk/hsp3/win32gui/mmman.cpp#pack "ChimeMP3.wav";#pack "ChimePCM.wav"#include "winmm.as"#define SND_SYNC $0 //再生終了するまで制御を返さない#define SND_ASYNC $1 //再生直後に制御を返す#define SND_NODEFAULT $2 //再生できない時でも警告音を鳴らさない#define SND_MEMORY $4 //メモリ上のデータを再生させる#define SND_LOOP $8 //ループ演奏する#define SND_NOSTOP $10 //使用中でも演奏を止めない// ファイル名fname = "ChimeMP3.wav"exist fnamesize = strsizesdim buf, sizebload fname, bufsndPlaySound varptr(buf), SND_ASYNC|SND_NODEFAULT|SND_MEMORY|SND_LOOP//sndPlaySound 0, 0//↑これで停止します