- Код: выделить все
; Получаем значение хэндла, оно нам понадобится много где.
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")
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,"\"))
C:\Totalcmd\TOTALCMD.EXE /O "&(folderpath)"
Else
Quit
Endif
Особенно удобная фишка это открыть папку в Total Commander. В Total Commander открывается папка программы. Долго этого хотел но не знал, что можно так сделать, хотя ничего сложного в этом нет.
<!--endemo--> Посмотри на скришнот. А самая верхняя позиция это что????
<!--endemo--> а Not top - нету <!--emo&:)-->
<!--endemo-->