Code: Select all
;-------- saved at Sonntag, 21. Juli 2013 20:26:38 --------------
;-------- http://www.autohotkey.com/de/forum/viewtopic.php?p=19758#19758 ---
; getAllAHKscripts.ahk / zLib Style Release (c) 2008 derRaphael(at)oleco.net
; Published: $2008-01-25_22-47$
; This script shows all running scripts to offer the possibility to restart, to edit or to terminate
#NoTrayIcon
DetectHiddenWindows, ON
SetTitleMatchMode, 2
Menu, cMenu, Add, Edit, AHKEDIT
Menu, cMenu, Add
Menu, cMenu, Add, Reload, AHKRESTART
Menu, cMenu, Add, Close, AHKCLOSE
Menu, cMenu, Add
Menu, cMenu, Add, Properties, AHKPROPS
Menu, Tray, NoStandard
Menu, Tray, Add, Liste Anzeigen, AHKSkripts
Menu, Tray, Add, Exit, AppExit
Menu, Tray, Default, Liste Anzeigen
AHKSkripts:
;Gui, -Caption
Gui, Color, 3399cc, Blue
Gui, Font, s8, Arial
Gui, Font, cWhite
Gui, Add, ListView, r36 w224 vListView gAHKListe AltSubmit, Name|PID
Gui, +ToolWindow +AlwaysOnTop
Gui, Show, x200 y200, Script Control
SetTimer, Update, 500
return
Update:
oListe := Liste
Liste := PIDs := ShortNames := ""
WinGet, hwnd, List, ahk_class AutoHotkey
Loop, %hwnd%
{
ID := hwnd%A_Index%
WinGetTitle, Titel, ahk_id %ID%
SkriptPath := RegExReplace(Titel, " - AutoHotkey v" A_AhkVersion )
SplitPath,SkriptPath,KurzName
WinGet, PID, PID, %SkriptPath% ahk_class AutoHotkey
Liste .= SkriptPath "`n"
PIDs .= PID "`n"
ShortNames .= KurzName "`n"
;msgbox %Liste%
}
if (oListe!=Liste) {
LV_Delete()
StringSplit,PID,PIDs,`n
StringSplit,FullPath,Liste,`n
Loop, Parse, ShortNames, `n
LV_Add("",A_LoopField, PID%A_Index%)
LV_ModifyCol()
;===================================================================
;SORT THE LIST OF SCRIPTS ALPHABETICALLY BEGINS HERE:
;this alphabeticalizes the list:
data = %liste%
StringSplit, line, data, `n,`r
Loop, parse, data, `n, `r
data1 .= (data1?"`n":"") A_LoopField "|" A_Index
data1 := RegExReplace(data1, "[ `,“”\(\)\/`:]")
sort, data1
loop, parse, data1, `n,`r
l := RegExReplace(A_LoopField, ".*\|") , out .= (out?"`n":"") line%l%
msgbox %out% ;show a messagebox with the revised list of running scripts in alphabetical order
}
;SORT THE LIST OF SCRIPTS ALPHABETICALLY ENDS HERE
;====================================================================
return
AHKCLOSE:
GoSub, GetSkript
WinClose, %Skript% ahk_class AutoHotkey
return
AHKRESTART:
GoSub, GetSkript
Interpreter := A_AhkPath
Kommando := """" Interpreter """ /restart """ Skript """"
Run, %Kommando%
return
AHKPROPS:
GoSub, GetSkript
Interpreter := A_AhkPath
Kommando := """" Skript """"
Run, properties %Kommando%
return
AHKEDIT:
GoSub, GetSkript
Interpreter := A_AhkPath
Kommando := """" Skript """"
Run, edit %Kommando%
return
GetSkript:
Zeile := LV_GetNext(0, "F")
Skript := FullPath%Zeile%
return
AHKListe:
If (A_GuiEvent="Normal") {
Zeile := LV_GetNext(0, "F")
;ToolTip % FullPath%Zeile%
SetTimer, TT, 2500
}
return
TT:
SetTimer, TT, OFF
ToolTip
return
GuiContextMenu:
If (A_GuiControl="ListView") {
Menu, cMenu, Show, %A_GuiX%, %A_GuiY%
}
return
GuiClose:
GuiEscape:
Liste := ""
Gui, Destroy
SetTimer, Update, OFF
return
AppExit:
ExitApp
esc::
exitapp
return
All you have to do is enter the folder location of your scripts on line 12. Just right-click on a script in the list to edit, reload or close the script. Anyways, there's probably also a lot of redundant code in here and a much better way to do things and most of this is amateur-ish, but like I said I'm mostly a tinkerer but I think I did get this one to work so it lists the scripts alphabetically in the listview. Credit goes to Wicked, who programmed this code. I just added the stuff that alphabeticalized the listview, since I couldn't find any other way to do it. Maybe somebody will find this useful and I hope it works on everyone else's system 
Only one thing about the latest codes - when running a new script, the title gets inserted to the bottom of the listview instead of alphabetically (I'm guessing this is by design, as it's easy this way to find out which is the most recently-loaded script) - but is there a way to have the most recent-run scripts inserted in alphabetical order or is that a big change?