wavの音量をコントロールしたい (ID:37765)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 皆様ありがとうございました。 メモリーにロードとはどうやれば良いか、などと考えていましたがもしやと思い（何もわからずに）下のようなSHOT0；を作って試してみました。 最初の一発はSHOOT0を起動してメモリに入れ、本番でSHOOTを呼び出したら遅延はなくなりましたので解決とさせていただきました。もしもこのやり方がおかしい/間違っているようでしたらご教示お願いします。ありがとうございました。 procedure SHOOT0; var rs:tresourcestream; begin rs:=tresourcestream.create(hinstance,'gun','wave'); rs.free; end; procedure SHOOT; var rs:tresourcestream; begin rs:=tresourcestream.create(hinstance,'gun','wave'); playsound(rs.memory, 0, SND_ASYNC or SND_memory); rs.free; end;