Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Single Post  Topic: Активация окна Total Commander движением мыши 
Author Message
Flasher



PostPosted: Sun Mar 21, 2010 02:42    Post subject: Reply with quote

Ок, переделал под себя. Левый верхний угол экрана - появление ТС, правый нижний (поле с часами).
Code:
While 1
    GUIGetMsg() ; разгрузка процессора
    $mpos = MouseGetPos()
    If ($mpos[0] <= @DesktopWidth - 1023) And ($mpos[1] < @DesktopHeight - 760) Then
        $list = WinList("[CLASS:TTOTAL_CMD]")
        If $list[0][0] > 0 Then WinActivate ($list[1][1])
    EndIf
    If ($mpos[0] >= @DesktopWidth - 200) And ($mpos[0] < @DesktopWidth - 2) And ($mpos[1] > @DesktopHeight - 30) Then
        $list = WinList("[CLASS:Shell_TrayWnd]")
        If $list[0][0] > 0 Then WinActivate ($list[1][1])
    EndIf
Wend
Спасибо за скрипт, вещь!

Last edited by Flasher on Sun Mar 21, 2010 13:41; edited 1 time in total
View user's profile Send private message


Powered by phpBB © 2001, 2005 phpBB Group