Single Post - Autorun :: Total Commander

Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB

Rules

Search

FAQ

Memberlist

Usergroups

Profile

Single Post

Topic: Autorun

Author

Message

Orion9

Posted: Wed Apr 29, 2026 19:49 Post subject:

FallenAngel wrote:

Т.е. нажал - переключились три параметра, нажал еще раз - вернулось как было.

К сожалению, это не так просто сделать, как может показаться. Все эти параметры привязаны к разрешению и DPI — потребуются сложные алгоритмы для чтения и записи ключей в файл конфигурации. Вряд ли оно того стоит.

Iconsize32

Buttonheight

SmallIconSize

FallenAngel
На случай, если Loopback не вернется... Спросил я тут у интеллехта, как повесить хук, и он сразу дал рабочее решение.

ahk

Code:

#Requires AutoHotkey v2.0
Persistent ; Скрипт должен продолжать работу для получения сообщений

; Константы WinAPI
WH_MOUSE_LL := 14
WM_LBUTTONDOWN := 0x0201
HC_ACTION := 0

; 1. Создаем Callback. "Fast" рекомендуется для хуков ввода.
mouseCallback := CallbackCreate(LowLevelMouseProc, "Fast", 3)

; 2. Устанавливаем хук
hHook := DllCall("SetWindowsHookEx", "Int", WH_MOUSE_LL, "Ptr", mouseCallback, "Ptr", DllCall("GetModuleHandle", "Ptr", 0, "Ptr"), "UInt", 0, "Ptr")

if !hHook {
MsgBox "Не удалось установить хук!"
ExitApp
}

; Удаляем хук при закрытии скрипта
OnExit((*) => DllCall("UnhookWindowsHookEx", "Ptr", hHook))

; --- Сама функция перехвата ---
LowLevelMouseProc(nCode, wParam, lParam)
{
if nCode = HC_ACTION {
; Пример: ловим нажатие левой кнопки мыши
if wParam = WM_LBUTTONDOWN
{
if !GetKeyState("Shift", "P")
return DllCall("CallNextHookEx", "Ptr", 0, "Int", nCode, "Ptr", wParam, "Ptr", lParam, "Ptr")

; Извлекаем координаты из структуры MSLLHOOKSTRUCT
x := NumGet(lParam, 0, "Int")
y := NumGet(lParam, 4, "Int")

hWnd := DllCall("WindowFromPoint", "Int64", NumGet(lParam, 0, "Int64"), "Ptr")
if (hWnd) {
rootHWnd := DllCall("GetAncestor", "Ptr", hWnd, "UInt", 2)

classBuffer := Buffer(512)
DllCall("GetClassName", "Ptr", rootHWnd, "Ptr", classBuffer, "Int", 256)

hitTest := DllCall("SendMessage", "Ptr", rootHWnd, "UInt", 0x84, "Ptr", 0, "Ptr", (y << 16) | (x & 0xFFFF))
isTitleBar := (hitTest == 2) ; HTCAPTION

;MsgBox "Класс: " . StrGet(classBuffer) . "`nЗаголовок: " . (isTitleBar ? "Да" : "Нет")
ToolTip "Класс: " . StrGet(classBuffer) . "`nЗаголовок: " . (isTitleBar ? "Да" : "Нет")
SetTimer () => ToolTip(), -2000 ; Скрыть через 1 сек
}
;ToolTip "Нажата левая кнопка в: " x ", " y
;SetTimer () => ToolTip(), -1000 ; Скрыть через 1 сек

; return 1 ; Раскомментируйте, чтобы заблокировать клик для системы
}
}
result := DllCall("CallNextHookEx", "Ptr", 0, "Int", nCode, "Ptr", wParam, "Ptr", lParam, "Ptr")
; Передаем управление следующему хуку в цепочке
return result
}

Перевод на Autorun не занял много времени. Пришлось правда добавить обработчик очереди сообщений вместо

Code:

hHook = DllCall("SetWindowsHookEx", _
"Int", WH_MOUSE_LL, _
"Ptr", MyMouse.Ptr, "Ptr", DllCall("GetModuleHandleW", "Ptr", 0, "Ptr"), "UInt", 0, "Ptr")

Ну и вместо

Code:

# Извлечение координат из структуры MSLLHOOKSTRUCT
#x = NumGet(lParam, 0, "Int")
#y = NumGet(lParam, 4, "Int")

Я просто использовал MouseGetPos("x","y")

aucfg

Code:

Pragma IncludeOnce

Global WH_MOUSE_LL = 14, HC_ACTION = 0

Global MyMouse = Callback("LowLevelMouseProc", "int;wparam;lparam")

#hHook = DllCall("SetWindowsHookEx", _
# "Int", WH_MOUSE_LL, _
# "Ptr", MyMouse.Ptr, "Ptr", DllCall("GetModuleHandleW", "Ptr", 0, "Ptr"), "UInt", 0, "Ptr")

RunThread("MouseHook")

Func MouseHook()
Local hHook
hHook = DllCall("SetWindowsHookEx", _
"Int", WH_MOUSE_LL, _
"Ptr", MyMouse.Ptr, "Ptr", 0, "UInt", 0, "Ptr")
Local buf = Buffer(auX64 ? 56 : 28)
While 1
DllCall("GetMessage", "ptr", buf.ptr, "hwnd", -1, "uint", 0, "uint", 0)
DllCall("TranslateMessage", "ptr", buf.ptr)
DllCall("DispatchMessage", "ptr", buf.ptr)
Wend
EndFunc

Func LowLevelMouseProc(nCode, wParam, lParam)
# WM_LBUTTONDOWN
If (nCode = HC_ACTION) And (wParam = 0x0201) Then
If IsPressed(0x10) Then

# Извлечение координат из структуры MSLLHOOKSTRUCT
#x = NumGet(lParam, 0, "Int")
#y = NumGet(lParam, 4, "Int")

MouseGetPos("x","y")

# Дескриптор окна под курсором
Local hWnd = DllCall("WindowFromPoint", "Int64", MakeInt(x, y, 2), "Ptr")
If hWnd Then
rootHWnd = DllCall("GetAncestor", "Ptr", hWnd, "UInt", 2)

classBuffer = Buffer(512)
DllCall("GetClassName", "Ptr", rootHWnd, "Ptr", classBuffer.Ptr, "Int", 256)

hitTest = DllCall("SendMessage", "Ptr", rootHWnd, "UInt", 0x84, "Ptr", 0, "Ptr", MakeInt(x, y, 0))
isTitleBar = (hitTest = 2) # HTCAPTION
If isTitleBar And classBuffer.GetStr() = "TLister" Then AlignListerWindow()
#MsgBox("Класс: " & classBuffer.GetStr() & auCRLF & "Заголовок: " & (isTitleBar ? "Да" : "Нет"))
EndIf
# Return 1 # Заблокировать клик для системы
EndIf
EndIf
# Передача управления следующему хуку в цепочке
Return DllCall("CallNextHookEx", "Ptr", 0, "Int", nCode, "wParam", lParam, "Ptr", lParam, "Ptr")
EndFunc

В код добавлена проверка класса TLister: если под курсором находится заголовок листера, будет вызвана AlignListerWindow, подгоняющая его размеры под окно тотала.

Вроде бы все работает, но ИИ советует использовать другой метод через функцию RegisterRawInputDevices

Code:

Если вы используете Raw Input (как мы обсуждали ранее) — вам вообще не нужны эти хуки, так как Raw Input еще более безопасен и не тормозит систему.

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