KMPlayer Part5 - 暇つぶし2ch

KMPlayer Part5 ..

233:名無しさん＠お腹いっぱい。
09/08/13 08:28:23 ekJXdvn5P
「複数起動を禁止」に設定している人向けにKMPlayerを別起動するスクリプトを作ってみた。

「KMPの再生リストに追加」等の外部からの要求は「通常起動したKMPlayerに対して行われる」ので、
普通の複数起動とは異なり「サブKMPlayerを起動する」ような感覚で使えるような気がする。
また、再生方法やスキン等に対しても異なる設定で起動可能っぽいので色々応用が利くと思う。

使い方：別起動する場合にスクリプトファイルをダブルクリック or 再生ファイルをドラッグ＆ドロップ

以下をスクリプトファイルとして拡張子vbsで保存

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 """C:\Program Files\The KMPlayer\KMPlayer.exe""" & argv
'複数起動を禁止(KMPlayerがレジストリ参照した後に書き換え,sleep時間は適当)
WScript.Sleep 500
wsl.RegWrite "HKCU\Software\KMPlayer\KMP2.0\OptionArea\SingleInstance", 1, "REG_DWORD"

次ページ

続きを表示

1を表示