09/12/11 22:30:09 X1xCTnfz0
これ前スレか前々スレ？にあったやつ
テンプレに入れたら便利じゃないか？
異なる設定などで複数起動したい場合
Set wsl = WScript.CreateObject("WScript.Shell")
'引数(再生ファイル)が指定された場合はKMPlayerに引き継ぐ
argv = ""
for lc=0 to WScript.Arguments.Count -1: argv=argv &" """& WScript.Arguments(lc) &"""": next
'複数起動を有効にしてKMPlayer起動
wsl.RegWrite "HKCU\Software\KMPlayer\KMP2.0\OptionArea\SingleInstance", 0, "REG_DWORD"
wsl.exec """ファイルの場所""" & argv
'複数起動を禁止(KMPlayerがレジストリ参照した後に書き換え,sleep時間は適当)
WScript.Sleep 500
wsl.RegWrite "HKCU\Software\KMPlayer\KMP2.0\OptionArea\SingleInstance", 1, "REG_DWORD"
を拡張子.vbsで保存