Total Commander + Power Pro

[Gregory]

Я думаю это всем будет интересно.
Цитата с оф. форума о Total Commander:
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
You can send TC the following command:  

wm_InvokeMenuCommand=WM_USER+51  

with WPARAM set to the command you want to pass to TC.
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

То бишь можно вызывать любую внутреннюю команду коммандера с помощью SendMessage, например, команда:
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->
*Window SendMessage wm_user+51 523 =totalcmd  
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
выделит все файлы на панели TC. (список команд см. totalcmd.inc)
Так што в Power Pro можно писать скрипты для TC. (в смысле нормальные скрипты без Send Keys)

[dAnIK SeNT]

2Gregory
Вот это новость! Супер!

[Reuben]

Расскажите потом поподробнее как это все работает, пожалуйста!

[Reuben]

по этому поводу несколько драфтов скриптов

Код: выделить все


Window SendMessage "wm_user+51 2018  " Total Commander 5*

var=clip.get


;winamp.pls(clear)

winamp.pls(addfile,&(var))

winamp.playback(play))





добавляет файл под курсором в плейлист. (и надо бы сделать, чтобы с директориями работало)

Код: выделить все


Window SendMessage "wm_user+51 2029  " Total Commander 5*

clip.set(clip.get ++ "'n")

clip.tofileappend("D:Program FilesPowerProfavfolder_any.txt")



добавляет текущий каталог в меню recent folders PPro
и в пару

Код: выделить все


keys {to Total Commander 5*}cd {filemenu "D:Program FilesPowerProfavfolder_any.txt"}{enter}



заменяет стандартный HotDir - но плохо работает с неправильной раскладкой. впрочем вместо cd наверно сделать еще одно filemenu с выбором операций над папками.

[Ergo]

2Reuben
Теперь мне кажется, функциональность Total Commander выростет еще! Думаю PowerPro будет неплохим плагином для Total Commander <!--emo&:)--><!--endemo-->

[Ergo]

Код: выделить все

; Windows PowerPro Script by Ergo
; С помощью этого скрипта вы можете добавлять выбранные в Total Commander файлы в текущий плей-лист WinAmp-а.

if (winamp.running) Do

   tempfile = pprofolder ++ "ScriptsWinampadd.tmp"

   file.delete(tempfile)

   .clip_save

   Window SendMessage wm_user+51 2018 =totalcmd

   clip.tofile(tempfile)

   .clip_restore

   fh = file.open(tempfile, "r")

   if (fh > 0) Do

 for (lineNum=1;1;LineNum=LineNum+1)

    str = File.Readstring(fh)

    winamp.pls("addfile", str)

    if (File.Eof(fh))

   break

 endfor

   Endif

   file.close(fh)

   file.delete(tempfile)

Else

   MessageBox("ok", "WinAmp не запущен")

Endif



[akak]

2Ergo
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->.clip_save <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->.clip_restore <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Скажи пожалуйста, это скрипты? Если я пропустил, то где их брать или посмотреть? А то этот скрипт вылетает.

[Sane]

Проще написать самому. <!--emo&:)--><!--endemo-->

[akak]

Я их выкинул восвояси, скрипт работает без них. Тогда что там должно было быть, кто нибудь скажет?

[Аскольд]

Вот я смотрю, тут для винампа масса скриптов, а STP кто-нибудь пробовал? Висит в трее, если надо есть панелька, весит ~200кб, ресурсы не жрет, плайлисты и т.д.

[Ergo]

2akak
2Sane
<a href='http://fileforum.ru/viewtopic.php?t=4460' target='_blank'>http://fileforum.ru/viewtopic.php?t=4460</a>

[Reuben]

Я использую такой скрипт для добавления файлов и папок из TC в WA .

Код: выделить все


.clip_save

Window SendMessage "wm_user+51 2018  " Total Commander 5*



Path_Winamp_Dir = "'"D:Program FilesWinamp"

if (not winamp.running) do

 Path_Winamp_Exe = Path_Winamp_Dir ++ "winamp.exe'""

 Do(RunFile, Path_Winamp_Exe)

endif



winamp.pls("clear")

if (select(clip.get,-1) == "")Do
;clip.set(clip.get ++ "*.mp3")

file.allfiles(clip.get,".addftowa('"|'")","1")   

Else

.addftowa(clip.get)

Endif

winamp.playback("play")

.clip_restore



addftowa.powerpro:

Код: выделить все


if ((select(arg(1),-3) == "mp3") or (select(arg(1),-3) == "m3u")

or select(arg(1),-3) == "pls") do

winamp.pls("addfile","&(arg(1))")

endif



скрипт от Ergo я еще не пробовал, м.б. он делает то же самое

А вот маленький скриптик, чтоб играть CD в WA

Код: выделить все


local mc  scriptpath r

scriptpath="D:Program FilesPowerProScripts"

mc=&(scriptpath) ++ "menucd.txt"

r= filemenu(&(mc)) ++"*.cda"

winamp.pls("clear")

file.allfiles("&(r)","winamp.pls('"addfile'",'"|'")")

winamp.playback("play")



menucd.txt:

Код: выделить все


m:

n:



просто список имеющихся CD драйверов

[Ergo]

2Reuben
У тебя скрипт делает немного другое. Мой скрипт добавляет именно выделенные mp3-файлы в уже загруженный плейлист не затирая его.

А твой скипт, судя по коду, создает новый плейлист из папки под курсором.

ps. Маленькая неприятность есть в командах типа Window SendMessage wm_user+51 523 =totalcmd

В первый раз она выполняется моментально, а вот последующие разы притормаживает, пока не перезагрузишь PowerPro <!--emo&:(--><!--endemo-->

[Reuben]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->2Reuben
У тебя скрипт делает немного другое. Мой скрипт добавляет именно выделенные mp3-файлы в уже загруженный плейлист не затирая его.
А твой скипт, судя по коду, создает новый плейлист из папки под курсором.


<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
или из файла.
на самом деле на другом клике я использую тот же скрипт, но с закомментированными двумя строчками, он как раз добавляет.
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->


ps. Маленькая неприятность есть в командах типа Window SendMessage wm_user+51 523 =totalcmd

В первый раз она выполняется моментально, а вот последующие разы притормаживает, пока не перезагрузишь PowerPro <!--emo&:(--><!--endemo--><!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
вот-вот, я тоже заметил <!--emo&:(--><!--endemo-->

[Ergo]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->вот-вот, я тоже заметил <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Как оказалось проблема решается заменой SendMessage на PostMessage (спасибо Данику)