HSPTV!掲示板

grooveやwindows media player は起動が少し遅く、
音楽プレーヤ―を作ろうとしているのですが、
強制終了してしまいます。(強制終了というよりは落ちる感じ？)
(dmmplayを追加したらなってしまいました。)
理由がわかる方、お願いします。
以下内容

#include "hspda.as"
#include "hgimg3.as"
vload "音楽music.save"
screen 0,200,87
title "´Д`"
music =dirinfo(4)
if peek(music, ) = '"' : getstr music, music, 1, '"'
*fastaaa
cls

dmmload music,0,loopkastreet
;	ウィンドウスタイルに目盛り自動表示 ($1=TBS_AUTOTICKS)
	winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30
;	このトラックバーのウィンドウハンドル取得
	hTrackbar = objinfo(stat, 2)
	sendmsg hTrackbar, $405, 1, 50


	sendmsg hTrackbar, $414, 10
;	lparamにウィンドウハンドルが返る
	if lparam = hTrackbar {

		sendmsg hTrackbar, $400
	basho = stat
	}
dmmplay 0,basho
font "",10
mes music
mes "ループ再生"+loopaaa
button gosub "ループ再生",*loopa
button gosub "通常再生",*noloopa
;	ウィンドウスタイルに目盛り自動表示 ($1=TBS_AUTOTICKS)
	winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30
;	このトラックバーのウィンドウハンドル取得
	hTrackbar = objinfo(stat, 2)
	sendmsg hTrackbar, $405, 1, 50


	sendmsg hTrackbar, $414, 10

pos 60,20
button "最初から ⇒",*fastaaa
button gosub "停止 ■",*stopaaa
pos 120,20
button gosub "検索",*ken


stop
*loopa
loopkastreet = 1
loopaaa = "する"
vsave "音楽music.save"
return
*noloopa
loopkastreet = 0
loopaaa="しない"
vsave "音楽music.save"
return
*stopaaa
mmstop 0
return
*ken
dialog "mp3;*.wav;*.midi;*.mid",16,"音声ファイル"
music=refstr
mmstop 0
return

投稿してからhspoggに変えて、.dllファイルを入れましたが、状況は変わりませんでた。

このスクリプトにはdmminiがありません。確かに私も同じ間違いしました。
以下、修正したスクリプトです。

#include "hspda.as"
#include "hgimg3.as"
dmmini	//音声機能の初期化
vload "音楽music.save"
screen 0,200,87
title "´Д`"
music =dirinfo(4)
if peek(music, ) = '"' : getstr music, music, 1, '"'
*fastaaa
cls

dmmload music,0,loopkastreet
;	ウィンドウスタイルに目盛り自動表示 ($1=TBS_AUTOTICKS)
	winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30
;	このトラックバーのウィンドウハンドル取得
	hTrackbar = objinfo(stat, 2)
	sendmsg hTrackbar, $405, 1, 50


	sendmsg hTrackbar, $414, 10
;	lparamにウィンドウハンドルが返る
	if lparam = hTrackbar {

		sendmsg hTrackbar, $400
	basho = stat
	}
dmmplay 0,basho
font "",10
mes music
mes "ループ再生"+loopaaa
button gosub "ループ再生",*loopa
button gosub "通常再生",*noloopa
;	ウィンドウスタイルに目盛り自動表示 ($1=TBS_AUTOTICKS)
	winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30
;	このトラックバーのウィンドウハンドル取得
	hTrackbar = objinfo(stat, 2)
	sendmsg hTrackbar, $405, 1, 50


	sendmsg hTrackbar, $414, 10

pos 60,20
button "最初から ⇒",*fastaaa
button gosub "停止 ■",*stopaaa
pos 120,20
button gosub "検索",*ken


stop
*loopa
loopkastreet = 1
loopaaa = "する"
vsave "音楽music.save"
return
*noloopa
loopkastreet = 0
loopaaa="しない"
vsave "音楽music.save"
return
*stopaaa
mmstop 0
return
*ken
dialog "mp3;*.wav;*.midi;*.mid",16,"音声ファイル"
music=refstr
mmstop 0
return

そんなものが必要なのですね。ありがとうございます。