PP Script: Ergo Caption Menu

[m1Kky]

2Gluek: скрИпт в стУдию ж)

[LU]

если кому интересно то вот мой вариант скрипта:

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->; Получаем значение хэндла, оно нам понадобится много где.
handle = win.handle(caption)

; Определяем опцию поверх всех окон. чито для красоты
if (win.topmost(handle)=="1") Do
metka = "d"
Else
metka = ""
Endif
; Заканчиваем ее проверять


; Создаем меню
menu.reset()
m = menu.create

menu.insert (m, 100, "Всегда наверху", metka, "ontop")
menu.insert (m, 100, "Копировать заголовок", "", "gettitle")
menu.insert (m, 100, "Копировать путь к исполняемому файлу", "", "getexename")
menu.insert (m, 100, "Изменить заголовок", "", "changetitle")
menu.insert (m, 100, "Получить handle окна", "", "gethandle")
menu.insert (m, 100, "Открыть папку в Total Commander", "", "opendir")
menu.insert (m, 100, "Свернуть в трей", "", "traymin")
menu.insert (m, 100, "Спрятать", "", "hide")
menu.insert (m, 100, "Развернуть", "", "maximize")
menu.insert (m, 100, "Свернуть", "", "minimize")
menu.insert (m, 100, "Востановить", "", "restore")
menu.insert (m, 100, "Закрыть", "", "close")
menu.insert (m, 100, "Снять задачу", "", "closeforce")

i = menu.show(m)
menu.destroy(m)

; Собственно то, что мы делаем с помощью меню

if (i == "ontop") Do
win.ontop(handle)
;-------------------------------------------------
ElseIf (i == "gettitle")
clip.set(caption)
;-------------------------------------------------
ElseIf (i == "getexename")
clip.set(exefullpath)
;-------------------------------------------------
ElseIf (i == "changetitle")
newtext = InputDefault(caption, "Введите новый заголовок")
win.settext(handle, newtext)
;-------------------------------------------------
ElseIf (i == "gethandle")
clip.set(handle)

;-------------------------------------------------
ElseIf (i == "opendir")
folderpath = select(exefullpath,revindex(exefullpath,"\"))
D:\Soft\system\wincmd\TOTALCMD.EXE /O "&(folderpath)"


;-------------------------------------------------
ElseIf (i == "traymin")
win.traymin(handle)


;-------------------------------------------------
ElseIf (i == "hide")
win.hide(handle)

;-------------------------------------------------
ElseIf (i == "maximize")
win.maximize(handle)

;-------------------------------------------------
ElseIf (i == "minimize")
win.minimize(handle)

;-------------------------------------------------
ElseIf (i == "move")
win.move(handle)

;-------------------------------------------------
ElseIf (i == "restore")
win.restore(handle)

;-------------------------------------------------
ElseIf (i == "close")
win.close(handle)

;-------------------------------------------------
ElseIf (i == "closeforce")
win.close(closeforce)
Else
Quit
Endif<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

2 m1Kky
<!--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-->

как тебе сказать, што не понятно...... да практически все <!--emo&:)--><!--endemo-->) начинаю с английского языка.....
ну и вапще не знаком я с программированием и с написанием скриптов <!--emo&:)--><!--endemo-->)
от сюда и все проблеммы..... нету ни опыта ни каких-либо основ.....

[Gluek]

2m1Kky<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->2Gluek: скрИпт в стУдию ж) <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Так нету никакого скрипта <!--emo&;)--><!--endemo-->

caption-menu.txt

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

[*Hot]
176 ""  50000 *Menu Show caption-menu!`

[caption-menu]
G 608264 5 0 0 0 0 0 127 0 0 0
"&1 Minimize" 0,D:\Files\pics\ICO\View Mode.ico*
L 50000 *Window Min! under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&2 Maximize" 0,D:\Files\pics\ICO\View Mode.ico*
L 50000 *Window Max! under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&3 Traymin" 0,D:\Files\pics\ICO\Down Arrow.ico*
L 50000 *Window Traymin! under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"" Left*
L 50000 *Format Separator!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&4 OnTop" 0,D:\Files\pics\ICO\Always on Top.ico*
L 50000 *Window Ontop! under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&5 NotTop" 0,D:\Files\pics\ICO\Not Always on Top.ico*
L 50000 *Window Nottop! under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"" Left*
L 50000 *Format Separator!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&6 Resize" 0,D:\Files\pics\ICO\Sizes.ico*
L 50000 *Window Size! under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&7 Center" 0,D:\Files\pics\ICO\Slides.ico*
L 50000 *Window Center! under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&8 Open folder" 0,D:\Files\Pics\ICO\ComboBox.ico*
L 50000 folderpath = select(exefullpath,revindex(exefullpath,"\")) "&(folderpath)"!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&9 Priority" 0,D:\Files\pics\ICO\RamDisk.ico*
L 50000 *Format StartSubmenu!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&1 Idle" 0,D:\Files\pics\ICO\Chain.ico*
L 50000 *Window SetPriority! idle under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&2 Below Normal" 0,D:\Files\pics\ICO\Chain.ico*
L 50000 *Window SetPriority! below under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&3 Normal" 0,D:\Files\pics\ICO\Chain.ico*
L 50000 *Window SetPriority! normal under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&4 Above Normal" 0,D:\Files\pics\ICO\Chain.ico*
L 50000 *Window SetPriority! above under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&5 High" 0,D:\Files\pics\ICO\Chain.ico*
L 50000 *Window SetPriority! high under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"" *
L 50000 *Format EndSubmenu!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"" Left*
L 50000 *Format Separator!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&0 WindowInfo" 0,D:\Files\pics\ICO\Script.ico*
L 50000 *Exec WindowInfo!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&c Caption to clip" 0,D:\Files\Pics\ICO\Text.ico*
L 50000 clip.set(caption) !`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"" Left*
L 50000 *Format Separator!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0
"&x Close" 0,D:\Files\pics\ICO\Close.ico*
L 50000 *Window Closeforce! under!`
M 50000 (none)!`
R 50000 (none)!`
F 0 0 0 0


Думаю как это к ПП прикрутить ясно (Setup -> Import from text)

Иконки соберу, выложу отдельно - вот <a href='http://gluek.narod.ru/files/ppro/caption-menu.zip' target='_blank'>забирайте (иконки всесте со скриптом)</a>

[Viggen]

2Gluek
"C:\temp\CmdLine\Release\CmdLine.exe" /O "&(folderpath)"
выдает /O "&(folderpath)" а не /O c:\...\MyIE.exe
что не так? <!--emo&:unsure:--><!--endemo-->

[Gluek]

2Viggen
Пардон а ты это куда вводишь?

[Viggen]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->"&8 Open folder" 0,D:\Files\Pics\ICO\ComboBox.ico*
L 50000 folderpath = select(exefullpath,revindex(exefullpath,"\")) "&(folderpath)"!`<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

вместо "&(folderpath)"!`
(в поле enter more commands...)

[Gluek]

Не пойму, у меня все отлично работает <!--emo&:(--><!--endemo-->

[Viggen]

нашел <!--emo&:)--><!--endemo-->
у меня почему-то был удален знак & в настройках expression characters <!--emo&:rolleyes:--><!--endemo-->

[Gluek]

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->у меня почему-то был удален знак & в настройках expression characters  <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
<!--emo&:unsure:--><!--endemo--> а что там было? а как у тебя другие скрипты работали?

[Viggen]

<!--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-->
ничего там не было - пустое поле. <!--emo&:blink:--><!--endemo-->
другие тоже не работали, просто я думал сам не то пишу и избегал использования expressions <!--emo&:lol:--><!--endemo-->

[Urdigor]

А где взять Plugin Menu? Вышлите его пожалуйста на hallo at front.ru

[Urdigor]

извиняюсь за беспокойство, нашёл....

[angel-kpra]

Подскажите а как извлечь информацию о том в какой папке находится активное окно?
Как извлечь путь к EXE'шнику я понял, и енто не то.

[Ajax]

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

folderpath = select(exefullpath,revindex(exefullpath,"\"))
D:\Soft\system\wincmd\TOTALCMD.EXE /O "&(folderpath)"

Интересно, а почему это вот упорно выкидывает мне C:\winnt ?

[LU]

Need help!
после установке 3.8.17 перестал работать данный скрипт -((
выдает вот такую ошибку : "*menu reset Error occurred near line 11 whichcontained: menu.reset()"
и дальше по каждой линии -аналогично.

Ктоньть еще столкнуося? и чем лечится?