C02TobNClov1Dz56
2022-04-08 09:06:21 +08:00
#SingleInstance Force
#NoTrayIcon ;Delete this line if you want the tray icon to be visible.
EverythingPath := "Everything.exe" ;If your everything.exe isn't here, fix that. Keep the quotes.
MyUsername := "chengyq" ;Go to %userprofile% and change this to the title of that window. Keep the quotes.
MyRecycleBin := "回收站" ;Go to your Recycle Bin and change this to the title of that window. Keep the quotes.
MyThisPC := "此电脑" ;Go to your This PC and change this to the title of that window. Keep the quotes.
MyDownloads := "下载"
MyVideos := "视频"
MyDocuments := "文档"
MyPictures := "图片"
MyMusic := "音乐"
MyDesktop := "桌面"
MyThreeDObject := "3D 对象"
;You can delete below blocks if you don't want the features. Replace ^F with F3 if you are using that instead.
;BLOCK 1 - DESKTOP
#IfWinActive, ahk_class WorkerW
^F::
RunPath := "-p ""%UserProfile%" . "\" . "Desktop" . "\"""
Run, %EverythingPath% %RunPath%
Return
#IfWinActive, ahk_class Progman
^F::
RunPath := "-p ""%UserProfile%" . "\" . "Desktop" . "\"""
Run, %EverythingPath% %RunPath%
Return
;BLOCK 2 - TASKBARS
#IfWinActive, ahk_class Shell_TrayWnd
^F::
Run, %EverythingPath%
Return
#IfWinActive, ahk_class Shell_SecondaryTrayWnd
^F::
Run, %EverythingPath%
Return
;BLOCK 3 - EXPLORER WINDOW
#IfWinActive, ahk_class CabinetWClass
^F::
ControlGetText, RunPath, ToolbarWindow323, A
RunPath := SubStr(RunPath, 5)
isnotauserfolder := ":\"
IfNotInString, RunPath, %isnotauserfolder%
{
if (RunPath == MyThisPC)
{
RunPath := ""
} else if (RunPath == MyUsername) {
RunPath := "-p ""%UserProfile%"""
} else if (RunPath == MyRecycleBin) {
RunPath := "-s ""\$RECYCLE.BIN """
} else if (RunPath == MyDownloads) {
RunPath := "-p ""%UserProfile%" . "\" . "Downloads" . "\"""
} else if (RunPath == MyVideos) {
RunPath := "-p ""%UserProfile%" . "\" . "Videos" . "\"""
} else if (RunPath == MyDocuments) {
RunPath := "-p ""%UserProfile%" . "\" . "Documents" . "\"""
} else if (RunPath == MyPictures) {
RunPath := "-p ""%UserProfile%" . "\" . "Pictures" . "\"""
} else if (RunPath == MyMusic) {
RunPath := "-p ""%UserProfile%" . "\" . "Music" . "\"""
} else if (RunPath == MyDesktop) {
RunPath := "-p ""%UserProfile%" . "\" . "Desktop" . "\"""
} else if (RunPath == MyThreeDObject) {
RunPath := "-p ""%UserProfile%" . "\" . "3D Objects" . "\"""
} else {
RunPath := "-p ""%UserProfile%" . "\" . RunPath . "\"""
}
} else {
RunPath := "-p """ . RunPath . """"
}
Run, %EverythingPath% %RunPath%
Return
;#If