AutoHotkey: Duplicate starter menu entry

	; ////////////////////////////////////////////////////////////////////////////
	; // TC_StartMenu_DuplicateEntry.ahk V1.1
	; // (W) StatusQuo 2008 for TC 7.02a (tested up to 7.03)
	; //
	; // Duplicates an entry in TC Start Menu or Directory Hotlist
	; ////////////////////////////////////////////////////////////////////////////

	; *** set window class names
sClassMainWin := "TUSERMENUCHANGE"
sClassDialog  := "TSTDTREEDLG"

	; *** wait for & activate window
WinWait       , ahk_class %sClassMainWin%, 
IfWinNotActive, ahk_class %sClassMainWin%,, WinActivate, ahk_class %sClassMainWin%, 
WinWaitActive , ahk_class %sClassMainWin%,	; main "Change Start Menu"

	; *** store source values
ControlGetText, sText3, TEdit3, ahk_class %sClassMainWin%,	; main window
ControlGetText, sText2, TEdit2, ahk_class %sClassMainWin%,	; main window
ControlGetText, sText1, TEdit1, ahk_class %sClassMainWin%,	; main window
if (sText3 = "")
{
	sDialogType := "dir"
} else {
	sDialogType := "start"
	ControlGet,     iCBox2, Checked,, TCheckBox2, ahk_class %sClassMainWin%,	; main window
	ControlGet,     iCBox1, Checked,, TCheckBox1, ahk_class %sClassMainWin%,	; main window
}

	; *** get entry title
if (sDialogType = "dir")
{
	ControlClick,   TButton4, ahk_class %sClassMainWin%,	; Button "Change Title"; DirMenu
} else {
	ControlClick,   TButton5, ahk_class %sClassMainWin%,	; Button "Change Title"; StartMenu
}
WinWaitActive,                      ahk_class %sClassDialog%,	; dialog  "Change Title"
ControlGetText, sMenuTitle, TEdit1, ahk_class %sClassDialog%	; Title
ControlClick,   TButton1,           ahk_class %sClassDialog%,	; Button Cancel, close "Change Title" dialog
WinWaitActive,                      ahk_class %sClassMainWin%,	; main window

	; *** add new entry
if (sDialogType = "dir")
{
	ControlClick,   TButton7, ahk_class %sClassMainWin%,	; Button "Add Menu Entry"
} else {
	ControlClick,   TButton8, ahk_class %sClassMainWin%,	; Button "Add Menu Entry"
}
WinWaitActive,                               ahk_class %sClassDialog%,	; dialog  "Change Title"
ControlSetText, TEdit1, %sMenuTitle% [copy], ahk_class %sClassDialog%	; Title
ControlClick,   TButton2,                    ahk_class %sClassDialog%,	; Button OK, close "Title" dialog
WinWaitActive,                               ahk_class %sClassMainWin%,	; main window

	; *** fill stored values from source entry
if (sDialogType = "start")
{
	ControlSetText, TEdit3, %sText3%, ahk_class %sClassMainWin%,	; main window
}
ControlSetText, TEdit2, %sText2%, ahk_class %sClassMainWin%,	; main window
ControlSetText, TEdit1, %sText1%, ahk_class %sClassMainWin%,	; main window

if (sDialogType = "start")
{
	if iCBox2
		Control, Check,,   TCheckBox2, ahk_class %sClassMainWin%,	; main window
	else
		Control, UnCheck,, TCheckBox2, ahk_class %sClassMainWin%,	; main window
	if iCBox1
		Control, Check,,   TCheckBox1, ahk_class %sClassMainWin%,	; main window
	else
		Control, UnCheck,, TCheckBox1, ahk_class %sClassMainWin%,	; main window

	; *** set cursor to command value
ControlFocus, TEdit3, ahk_class %sClassMainWin%,	; main window
ControlSend,  TEdit3, {HOME}, 
}

Back to AutoHotkey