AutoHotkey: Duplicate starter menu entry

	; ////////////////////////////////////////////////////////////////////////////
	; // (W) StatusQuo 2008 for TC 7.02a
	; //
	; // Duplicates an entry in TC starter menu
	; ////////////////////////////////////////////////////////////////////////////
	; // window title strings:
	; //    Change Start Menu / Startermenü ändern ahk_class TUSERMENUCHANGE
	; //    Total Commander ahk_class TSTDTREEDLG
	; ////////////////////////////////////////////////////////////////////////////

WinWait, ahk_class TUSERMENUCHANGE, 
IfWinNotActive, ahk_class TUSERMENUCHANGE,, WinActivate, ahk_class TUSERMENUCHANGE, 
WinWaitActive,  ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"

	; *** store source values
ControlGetText, sText3, TEdit3,     ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
ControlGetText, sText2, TEdit2,     ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
ControlGetText, sText1, TEdit1,     ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
ControlGet,     iCBox2, Checked,, TCheckBox2, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
ControlGet,     iCBox1, Checked,, TCheckBox1, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"

	; *** get entry title
ControlClick,   TButton5, ahk_class TUSERMENUCHANGE,	; Button "Change Title"
WinWaitActive,  ahk_class TSTDTREEDLG,	; Dialog  "Change Title"
ControlGetText, sMenuTitle, TEdit1, ahk_class TSTDTREEDLG
ControlClick,   TButton1, ahk_class TSTDTREEDLG,	; Button Cancel, close "Change Title" dialog
WinWaitActive,  ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"

	; *** add new entry
ControlClick,   TButton8, ahk_class TUSERMENUCHANGE,	; Button "Add Menu Entry"
WinWaitActive,  ahk_class TSTDTREEDLG,
ControlSetText, TEdit1, %sMenuTitle% [copy], ahk_class TSTDTREEDLG
ControlClick,   TButton2, ahk_class TSTDTREEDLG,	; Button OK, close "Title" dialog
WinWaitActive,  ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"

	; *** fill stored values from source entry
ControlSetText, TEdit3, %sText3%, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
ControlSetText, TEdit2, %sText2%, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
ControlSetText, TEdit1, %sText1%, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
if iCBox2
	Control, Check,,   TCheckBox2, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
else
	Control, UnCheck,, TCheckBox2, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
if iCBox1
	Control, Check,,   TCheckBox1, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
else
	Control, UnCheck,, TCheckBox1, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"

	; *** set cursor to command value
ControlFocus, TEdit3, ahk_class TUSERMENUCHANGE,	; main "Change Start Menu"
ControlSend,  TEdit3, {HOME}, 

Back to AutoHotkey