mf-zl
|
 Posted: Mon Oct 12, 2009 08:08 Post subject: |
 |
|
| Code: | #SingleInstance force
; Держи и тести, остальные вопросы на мыло zl[at]mail.by там хоть за албанский в лицо не плюют >_<
; Запуск приложения
Run, TOTALCMD.EXE
; Ожидание открытия окна
WinWait, ahk_class TTOTAL_CMD
; Запуск таймера для проверки существования процесса
SetTimer, CheckTC, On
WheelUp::
WheelDown::
MouseGetPos, MouseX, MouseY, WinID, ControlNN, 1
WinGetClass, WinClass, % "ahk_id " WinID
; Прокрутка колесом мыши вкладок TC
If (WinClass = "TTOTAL_CMD" && RegExMatch(ControlNN, "TMyTabControl[12]"))
{ PostMessage, 1075, % TC_Cmd := "400" (ControlNN = "TMyTabControl1" ? "1" : "2"), 0,, % "ahk_class " WinClass
PostMessage, 1075, % TC_Cmd := "300" (A_ThisHotkey = "WheelDown" ? "5" : "6"), 0,, % "ahk_class " WinClass
}
; Прокрутка окна под курсором мыши без активации
Else, PostMessage 0x20A, ((A_ThisHotKey="WheelUp")-.5)*A_EventInfo*(120<<17),(MouseY<<16)|MouseX, % ControlNN, % "ahk_id " WinID
Return
CheckTC:
Process, Exist, TOTALCMD.EXE
If !ErrorLevel
ExitApp
Return
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
