AutoHotkey Community

Code: Select all

Rename()
{
	NewName := A_ScriptName ;-- Grabs current script name (script.ahk)
	StringTrimRight, NewName, NewName, 3 ;-- Removes the AHK extension
	NewName .= "exe" ;-- Appends EXE extension
	
	 StringSplit, AHKName, A_AHKPath, \ ;-- Takes current AHK executable path and splits it by \

	Loopy := AHKName0 - 1 ;-- Sets the loop iteration count to one less than the parts of the file path
	Loop, %Loopy% ;-- Loops through file path parts
		AHKDir .= AHKName%A_Index% . "\" ;-- Rebuilds AHK path. Leaves off executable name
	
	AHK_CB_Dir := AHKDir . NewName ;--Appends the current script's name with EXE extension to the AHK path
	AHK_AH_Dir := AHKDir . "AutoHotkey.exe" ;-- Build default AHK path
  	ScriptDir := A_ScriptFullPath ;-- Saves current script path including file name
	
 	Name := AHKName%AHKName0% ;-- Grabs the last portion of the split AHK path
 	
 	If (Name != NewName) ;-- Tests to see if script name matches AHK name
 	{
 		FileMove, %AHK_AH_Dir%, %AHK_CB_Dir% ;-- Renames AutoHotkey.exe to current script.exe
 		If ErrorLevel ;-- Unable to rename?
  		{
 			MsgBox, Unable to rename AutoHotkey.exe
 			Run, %AHKDir%
 			ExitApp
 		}
 		
		IfExist, %AHK_CB_Dir% ;-- Verifies new AHK executable is in place
 			Run, %AHK_CB_Dir% %A_ScriptFullPath%, UseErrorLevel ;-- Reloads script via new AHK name
  		
  		If ErrorLevel ;-- Unable to run new ahk name?
  		{
  			MsgBox, Error running %A_ScriptFullPath%
  			FileMove, %AHK_CB_Dir%, %AHK_AH_Dir%
  			ExitApp
		}
		ExitApp ;-- Ensures rest of code does not run after 
	}
 	else ;-- AHK path matches script name
	{
		FileMove, %A_AHKPath%, %AHKDir%AutoHotkey.exe ;-- Renames AHK back to AutoHotkey.exe
		If ErrorLevel ;-- Unable to rename?
		{
			MsgBox, Unable to rename %NewName%
			Run, %AHKDir%
			ExitApp
		}
  	}
}

Code: Select all

Run, %AHK_CB_Dir% %A_ScriptFullPath%, UseErrorLevel ;-- Reloads script via new AHK name

Code: Select all

Run, % AHK_CB_Dir " " RegExReplace(A_ScriptFullPath,"([ ]+)","""$1"""), UseErrorLevel ;-- Reloads script via new AHK name

Code: Select all

Rename(NewName:="")
{
	if NewName
		NewName.= RegExMatch(NewName,"\.exe$") ? "":".exe"
	else
		NewName := RegExReplace(A_ScriptName,"\.ahk$",".exe") ;-- Grabs current script name (script.ahk)
		
	SplitPath, A_AHKPath, Name, AHKDir
	AHKDir.="\"
	AHK_CB_Dir := AHKDir . NewName ;--Appends the current script's name with EXE extension to the AHK path
	AHK_AH_Dir := AHKDir . "AutoHotkey.exe" ;-- Build default AHK path

 	If (Name != NewName) ;-- Tests to see if script name matches AHK name
 	{
 		FileMove, %AHK_AH_Dir%, %AHK_CB_Dir% ;-- Renames AutoHotkey.exe to current script.exe
 		If ErrorLevel ;-- Unable to rename?
  		{
 			MsgBox, Unable to rename AutoHotkey.exe
 			Run, %AHKDir%
 			ExitApp
 		}
 		
		IfExist, %AHK_CB_Dir% ;-- Verifies new AHK executable is in place
 			Run, % AHK_CB_Dir " " RegExReplace(A_ScriptFullPath,"([ ]+)","""$1"""), UseErrorLevel ;-- Reloads script via new AHK name
  		
  		If ErrorLevel ;-- Unable to run new ahk name?
  		{
  			MsgBox, Error running %A_ScriptFullPath%
  			FileMove, %AHK_CB_Dir%, %AHK_AH_Dir%
  			ExitApp
		}
		ExitApp ;-- Ensures rest of code does not run after 
	}
 	else ;-- AHK path matches script name
	{
		FileMove, %A_AHKPath%, %AHKDir%AutoHotkey.exe ;-- Renames AHK back to AutoHotkey.exe
		If ErrorLevel ;-- Unable to rename?
		{
			MsgBox, Unable to rename %NewName%
			Run, %AHKDir%
			ExitApp
		}
  	}
}

Code: Select all

Rename(NewName:="", reloading:=0)
{
	if NewName
		NewName.= RegExMatch(NewName,"\.exe$") ? "":".exe"
	else
		NewName := RegExReplace(A_ScriptName,"\.ahk$",".exe") ;-- Grabs current script name (script.ahk)
		
	SplitPath, A_AHKPath, Name, AHKDir
	AHKDir.="\"
	AHK_CB_Dir := AHKDir . NewName ;--Appends the current script's name with EXE extension to the AHK path
	AHK_AH_Dir := AHKDir . "AutoHotkey.exe" ;-- Build default AHK path
	;MsgBox, % Name "`n" NewName
 	If (Name != NewName || reloading) ;-- Tests to see if script name matches AHK name
 	{
 		FileMove, %AHK_AH_Dir%, %AHK_CB_Dir% ;-- Renames AutoHotkey.exe to current script.exe
 		If ErrorLevel ;-- Unable to rename?
  		{
 			MsgBox, Unable to rename AutoHotkey.exe
 			Run, %AHKDir%
 			ExitApp
 		}
 		
		IfExist, %AHK_CB_Dir% ;-- Verifies new AHK executable is in place
 			Run, % AHK_CB_Dir " " RegExReplace(A_ScriptFullPath,"([ ]+)","""$1"""), UseErrorLevel ;-- Reloads script via new AHK name
  		
  		If ErrorLevel ;-- Unable to run new ahk name?
  		{
  			MsgBox, Error running %A_ScriptFullPath%
  			FileMove, %AHK_CB_Dir%, %AHK_AH_Dir%
  			ExitApp
		}
		ExitApp ;-- Ensures rest of code does not run after 
	}
 	else ;-- AHK path matches script name
	{
		FileMove, %A_AHKPath%, %AHKDir%AutoHotkey.exe ;-- Renames AHK back to AutoHotkey.exe
		If ErrorLevel ;-- Unable to rename?
		{
			MsgBox, Unable to rename %NewName%
			Run, %AHKDir%
			ExitApp
		}
		Menu,Tray,Add,Reload renamed script,Rename_Reload
  	}
	return
	Rename_Reload:
		SplitPath, A_AHKPath, exeName
		Rename(exeName,1)
	return
}

Code: Select all

Rename_reload_func()
{
	SplitPath, A_AHKPath, exeName
	Rename(exeName,1)
}

Code: Select all

Rename("Hello")
Random,rnd
MsgBox, % rnd

F1::
	Rename_reload_func()
return

Rename_reload_func()
{
	SplitPath, A_AHKPath, exeName
	Rename(exeName,1)
}

Code: Select all

Rename_reload_func()
{
	SplitPath, A_AHKPath, exeName
	Rename(exeName,1)
}