관리 메뉴

ㄴrㅎnㅂrㄹrㄱi

사이드바 본문

AUTOHOTKEY/유틸리티

사이드바

님투 2013. 1. 17. 17:43
반응형

http://www.autohotkey.com/board/topic/88131-hilfe-f%C3%BCr-sidebar-gesucht/?hl=shell.explorer

좌측에 사이드바를 만든다.
마우스를 1 초 이상 대고 있으면 사이드가바 나타난다.


#NoEnv
#SingleInstance force
DetectHiddenWindows, On
CoordMode, Mouse, Screen
H1:=A_ScreenHeight-60
Time1=400
Time2=400
OnExit,EX
gui +lastfound
GUIID := WinExist()
Gui,margin,5,10
Gui,Color,000000,FFFFAA
Gui,-Caption +ToolWindow + E0x200  -resize +AlwaysOnTop
Gui,add,ActiveX,x0 y5 w180 h%H1% vEXPLORER,Shell.Explorer
Gui,Add,Edit,x0 y+5 w180 vEDIT,     ; <<<< Eingabe für die Suche mit "Everything"
Gui,Add,Button,x0 y+5 w180 vEX gEX default,exit
IfNotExist,C:\0000gero000   ;  ; <<<< anfangs ein leerer Ordner im Irgendwo
    FileCreateDir,C:\0000gero000
EXPLORER.navigate("C:\0000gero000")
Gui,show,x0 y0 h%A_ScreenHeight% hide ,SideBar
SetTimer,TIMER,1000
return

TIMER:
Control,Hide,,SysHeader321,Ahk_ID %GUIID% ; macht den Explorer-Header weg (kommt mitunter wieder)
MouseGetPos,XX
IF (XX < 2 )
    {
    sleep 500
    MouseGetPos,XX
    IF (XX < 2)
        {
        DllCall("AnimateWindow", "UInt", GUIID, "Int", Time1, "UInt", +0x40001 +0x20000)
        Loop
            {
            MouseGetPos,,,WINDOW
            IF WINDOW != %GUIID%
                {
                DllCall("AnimateWindow", "UInt", GuiID, "Int", Time2, "UInt", +0x40002 +0x10000)
                break
                }
            sleep 50
            }
        }
    }
return

EX:
GuiClose:
DllCall("AnimateWindow", "UInt", GuiID, "Int", Time2, "UInt", 0x90000)
Exitapp
return


반응형
Comments