- Код: выделить все
@pl
do("D:Program FilesQCD 3QCDPlayer.exe","/show ")
jump quitt
@qnext
Window PostMessage "wm_command 40013 0 " QCD Player
jump quitt
@qnex5
Window PostMessage "wm_command 40032 0 " QCD Player
jump quitt
@qh
do("D:Program FilesQCD 3QCDPlayer.exe","/hide ")
jump quitt
@prev
Window PostMessage "wm_command 40012 0 " QCD Player
Window PostMessage "wm_command 40012 0 " QCD Player
Window PostMessage "wm_command 40016 0 " QCD Player
jump quitt
@pre5
Window PostMessage "wm_command 40033 0 " QCD Player
jump quitt
@qpause
Window PostMessage "wm_command 40015 0 " QCD Player
jump quitt
@qplay
Window PostMessage "wm_command 40016 0 " QCD Player
jump quitt
@qstop
Window PostMessage "wm_command 40014 0 " QCD Player
jump quitt
@qshutd
Window PostMessage "wm_user+5 " QCD Player
jump quitt
@ontop
Window PostMessage "wm_command 40002 0 " QCD Player
jump quitt
@pref
Window PostMessage "wm_command 40004 0 " QCD Player
jump quitt
@plugin
Window PostMessage "wm_command 40006 0 " QCD Player
jump quitt
@extinfo
Window PostMessage "wm_command 40005 0 " QCD Player
jump quitt
@editinfo
Window PostMessage "wm_command 40025 0 " QCD Player
jump quitt
@help
Window PostMessage "wm_command 42001 0 " QCD Player
jump quitt
@qcontmenu
Window sendMessage "wm_user+20 " QCD Player
jump quitt
@quitt
а вот переделка Даникова &Co playlist'a для работы с QCD (работает только с простыми меню)
- Код: выделить все
local div, div_current, i, n, m, s, adv_menu, str
static vars_set, max_len, max_height, path_winamp
if (vars_set != 1) do
psath_winamp = "'"D:Program FilesQCDqcdplayer.exe'""
max_len = 120
max_height = 0
vars_set = 1
endif
if (not winamp.running) do
Do(RunFile, (psath_winamp)
endif
menu.reset()
m = menu.create(max_height)
len = winamp.pls("length")
str = "Total: " ++ len ++ " track"
if (len>1) do
str = str ++ "s"
endif
menu.insert(m, 10000, str, "", "")
str = winamp.trackinfo("title", "noindex", "!error")
if (length(str)>max_len) do
str = select(str, max_len) ++ "..."
endif
menu.insert(m, 10000, str, "", "")
menu.insert(m, 10000, "", "-")
for (i=1; i<=len; i = i + 1)
n = "&" ++ (i%10)
if (len >= 10) do
n = ((i/10)%10) ++ n
if (len >= 100) do
n = ((i/100)%10) ++ n
endif
endif
str = n ++ ". " ++ winamp.track(i, "title", "!error")
if (length(str)>max_len) do
str = select(str, max_len) ++ "..."
endif
menu.insert(m, 10000, str, "", "!" ++ (i))
endfor
i = menu.show(m)
if ( not (i == "")) Do
ch = select(i, 1)
no = replacechars(i, "!@#$%^&* ")
if (ch == "!") do
no=20000+no-1
Window PostMessage "wm_command &(no) 0 " QCD Player
winamp.playback("play")
endif
endif
menu.destroy(m)