AutoHotkey Community

; Specify the filename and directory location to save
; the cached key word/phrase of last search. There is
; no need to change this unless you want to.
keyPhrase = %tmp%\_Seek.key
RecentFileListCount = 9

   NewKeyPhrase = %PrevKeyPhrase%
   NewOpenTarget = %PrevOpenTarget%

   ; ADD THE TEXT BOX FOR USER TO ENTER THE QUERY STRING
   Gui, 1:Add, Edit, vFilename W600, %NewKeyPhrase%

   ; ADD MY FAV TAGLINE

   NewKeyPhrase = %PrevKeyPhrase%
    OldSavedKeyPhrase = %NewKeyPhrase%
   NewOpenTarget = %PrevOpenTarget%

   ; ADD THE TEXT BOX FOR USER TO ENTER THE QUERY STRING
   Gui, 1:Add, ComboBox, vFilename W600, %NewKeyPhrase%

   ; ADD MY FAV TAGLINE

; SAVE THE KEY WORD/PHRASE FOR NEXT RUN IF IT HAS CHANGED
If TrackKeyPhrase = ON
{
   If (PrevKeyPhrase <> Filename || PrevOpenTarget <> OpenTarget)
   {
      FileDelete, %keyPhrase%
      FileAppend, %Filename%`n, %keyPhrase%
      FileAppend, %OpenTarget%`n, %keyPhrase%
   }

; SAVE THE KEY WORD/PHRASE FOR NEXT RUN IF IT HAS CHANGED
If TrackKeyPhrase = ON
{   
   Filenamenew:=RemoveOldEntries(Filename, OldSavedKeyPhrase)
   If (PrevKeyPhrase <> Filenamenew || PrevOpenTarget <> OpenTarget)
   {
      FileDelete, %keyPhrase%     
      FileAppend, %Filenamenew%`n, %keyPhrase%
      FileAppend, %OpenTarget%`n, %keyPhrase%
   }
}

; === BEGIN RemoveOldEntries ========================
RemoveOldEntries(Filename, OldSavedKeyPhrase)
{      
   global RecentFileListCount
   NewSavedKeyPhrase=
   ;Count the number of elements
   nCounter = 1
   Loop, parse, OldSavedKeyPhrase, |
   {
      IfGreaterOrEqual, nCounter, %RecentFileListCount%
      {         
         break
      }
      ;no duplicate entries
      ifequal, filename, %A_LoopField%
      {
         continue
      }      
      NewSavedKeyPhrase=%NewSavedKeyPhrase%|%A_LoopField%
      nCounter +=1
   }
   StringLeft, FirstChar, NewSavedKeyPhrase, 1
   ifnotequal, FirstChar, |
   {      
      NewSavedKeyPhrase=|%NewSavedKeyPhrase%
   }
   Filename:=Filename . NewSavedKeyPhrase   
   return %Filename%
}
return
;... END RemoveOldEntries.............................

; The following is used to add .ahk files from the ahk\lib directory
lib = C:\Program Files\AutoHotkey\Lib

; FOR ENGLISH VERSION OF WINDOWS
scanPath = %A_StartMenu%|%A_StartMenuCommon%|%lib%

Up::
   
   ControlFocus, ListBox1
        ControlSend, ListBox1, {Up}, A

Return


Down::

   ControlFocus, ListBox1
        ControlSend, ListBox1, {Down}, A

Return

!F1:: ; Hotkey = Alt + F1

; Code pasted in from several other scripts, like ContextHelp, etc
#Include C:\Docs\SUNDRY\AutoHotkey\Searching\SearchStartMenu.ahk

Gui, Destroy ; yes, not very nice but it probably works best here
Return

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; This is my first attempt to merge various scripts. I'm using #Include directive for all.

; #NoTrayIcon ; Hide/Don't hide the tray icon. (If hidden, use Win + Alt+ X to close.)
; #!x::ExitApp ; Hotkey = Wndows + Alt + X = Immediate exit of this script. This is needed if the #NoTrayIcon directive is enabled.


; 1. ContextHelp        WORKS
#Include C:\Docs\SUNDRY\AutoHotkey\AHK itself\ContextHelp.ahk

; 2. Thumbnails-AltGr   WORKS
#Include C:\Docs\SUNDRY\AutoHotkey\Explorer\Thumbnails-AltGr.ahk

; 3. Search1            WORKS
#Include C:\Docs\SUNDRY\AutoHotkey\Searching\Search1.ahk

; 4. SearchStartMenu    WORKS BUT PROBLEM: Closing it closes ALL!
#Include C:\Docs\SUNDRY\AutoHotkey\Searching\SearchStartMenu.ahk

; 5. FavoriteFolders    NOT WORKING
#Include C:\Docs\SUNDRY\AutoHotkey\Explorer\FavoriteFolders.ahk