画像を開く際に任意のビューワを選択する _

またWinMo,Mortscript,w-zero3,WS011SH話。気がついたら画像ビューワだけで13個も入っているとかアホですか。

以下launch_img.mscr。変数めんどくさいから前回そのまんま。

# * 使い方 :
#   "\Program Files\MortScript\MortScript.exe" "\Program Files\MortScript\launch_img.mscr" url="%1"
#選択肢
b[1]="XnViewPocket"
b[2]="XnViewSmartphone"
b[3]="Imageviewer"
b[4]="画像とビデオ"
b[5]="Kinoma Player"
b[6]="mdiapp"
b[7]="evernote"
b[8]="Nasuvi"
b[9]="MobileImageViewer"
b[10]="PicCir"
b[11]="PicPie"
b[12]="MangaMeeyaCE"
b[13]="Photoshop.com Mobile"
#ダイアログを出す
ChoiceDefault( "Open Url", "choose browser", 1, 20, b )
#選択時に応じた実行ファイルと引数を渡す
Case( 1 )
    cmd = array("\Storage Card\Program Files\XnView Pocket\xnpocket.exe", url)
Case( 2 )
    cmd = array("\Storage Card\Program Files\XnView Smartphone\XnSmartphone.exe", url)
Case( 3 )
    cmd = array("\Program Files\ImageView.exe", url)
Case( 4 )
    cmd = array("\windows\pimg.exe", url)
Case( 5 )
    cmd = array("\Storage Card\Program Files\Kinoma\kp5.exe", url)
Case( 6 )
    cmd = array("\Storage Card\Program Files\mdiapp\mdiapp.exe", url)
Case( 7 )
    cmd = array("\Program Files\Evernote\Evernote3\evernote.exe", url)
Case( 8 )
    cmd = array("\Storage Card\Program Files\NASUVI\nasuvi.exe", url)
Case( 9 )
    cmd = array("\Storage Card\Program Files\MobileImageViewer\MobileImageViewer.exe", url)
Case( 10 )
    cmd = array("\Storage Card\Program Files\PicCir\PicCir.exe", url)
Case( 11 )
    cmd = array("\Storage Card\Program Files\PicPie\PicPie.exe", url)
Case( 12 )
    cmd = array("\Storage Card\Program Files\MangaMeeyaCE\MangaMeeyaCE.exe", url)
Case( 13 )
    cmd = array("\Storage Card\Program Files\Adobe\Photoshop.com Mobile\Photoshop.com Mobile.exe", url)
EndChoice
#渡されたのを実行する
#message(cmd[1] & "<>" & cmd[2])
Run( cmd[1], cmd[2] )

んで関連付け変更。　file-launch-img-mscr.reg　とでもして、FDCsoftさんとこのtaskmgrのregeditからインポートするといいと思う。

REGEDIT4

[HKEY_CLASSES_ROOT\.jpg]
@="jpgfile"

[HKEY_CLASSES_ROOT\jpgfile]
@="jpg format file."

[HKEY_CLASSES_ROOT\jpgfile\DefaultIcon]
@="browsres.dll,-6704"

[HKEY_CLASSES_ROOT\jpgfile\Shell]

[HKEY_CLASSES_ROOT\jpgfile\Shell\Open]

[HKEY_CLASSES_ROOT\jpgfile\Shell\Open\Command]
@="\"\\Program Files\\MortScript\\MortScript.exe" "\Program Files\\MortScript\\launch_img.mscr" url=\"%1\""


[HKEY_CLASSES_ROOT\.gif]
@="giffile"

[HKEY_CLASSES_ROOT\giffile]
@="gif format file."

[HKEY_CLASSES_ROOT\giffile\DefaultIcon]
@="browsres.dll,-6705"

[HKEY_CLASSES_ROOT\giffile\Shell]

[HKEY_CLASSES_ROOT\giffile\Shell\Open]

[HKEY_CLASSES_ROOT\giffile\Shell\Open\Command]
@="\"\\Program Files\\MortScript\\MortScript.exe" "\Program Files\\MortScript\\launch_img.mscr" url=\"%1\""


[HKEY_CLASSES_ROOT\.png]
@="pngfile"

[HKEY_CLASSES_ROOT\pngfile]
@="png format file."

[HKEY_CLASSES_ROOT\pngfile\DefaultIcon]
@="browsres.dll,-6705"

[HKEY_CLASSES_ROOT\pngfile\Shell]

[HKEY_CLASSES_ROOT\pngfile\Shell\Open]

[HKEY_CLASSES_ROOT\pngfile\Shell\Open\Command]
@="\"\\Program Files\\MortScript\\MortScript.exe\" \"\\Program Files\\MortScript\\launch_img.mscr\" url=\"%1\""


[HKEY_CLASSES_ROOT\.bmp]
@="bmpfile"

[HKEY_CLASSES_ROOT\bmpfile]
@="bmp format file."

[HKEY_CLASSES_ROOT\bmpfile\DefaultIcon]
@="browsres.dll,-6705"

[HKEY_CLASSES_ROOT\bmpfile\Shell]

[HKEY_CLASSES_ROOT\bmpfile\Shell\Open]

[HKEY_CLASSES_ROOT\bmpfile\Shell\Open\Command]
@="\"\\Program Files\\MortScript\\MortScript.exe" "\Program Files\\MortScript\\launch_img.mscr" url=\"%1\""
[戻る]

my recent post