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
반응형