Total Commander

Code: Select all

DetectHiddenText, On

Loop
{
	WinText =
	DirName1 =
	PID =
	TCPath =
	sFilePath =
	FoundPos =

	WinWaitActive, Total Commander ahk_class #32770

	WinGetText, WinText
	FoundPos := RegExMatch(WinText, "OK\r\nError: Directory \[(.*)\]\ralready exists!\rPlease specify a different name\.", DirName)
	
	IfEqual, FoundPos, 0
		Continue

	WinWaitActive, ahk_class TTOTAL_CMD
	WinGet, PID, PID

	VarSetCapacity(sFilePath, 260)
	VarSetCapacity(sCmdLine, 512)

	pFunc := DllCall("GetProcAddress", "Uint", DllCall("GetModuleHandle", "str", "kernel32.dll"), "str", "GetCommandLineA")
	hProc := DllCall("OpenProcess", "Uint", 0x043A, "int", 0, "Uint", pid)
	hThrd := DllCall("CreateRemoteThread", "Uint", hProc, "Uint", 0, "Uint", 0, "Uint", pFunc, "Uint", 0, "Uint", 0, "Uint", 0)

	DllCall("WaitForSingleObject", "Uint", hThrd, "Uint", 0xFFFFFFFF)
	DllCall("GetExitCodeThread", "Uint", hThrd, "UintP", pcl)
	DllCall("ReadProcessMemory", "Uint", hProc, "Uint", pcl, "str", sCmdLine, "Uint", 512, "Uint", 0)

	DllCall("psapi\GetModuleFileNameExA", "Uint", hProc, "Uint", 0, "str", sFilePath, "Uint", 260)

	DllCall("CloseHandle", "Uint", hThrd)
	DllCall("CloseHandle", "Uint", hProc)

	WinGetText, TCWindowText
	Loop, Parse, TCWindowText, `n, `r
		If (SubStr(A_LoopField, 0) = ">")
		{
			StringTrimRight, TCPath, A_LoopField, 1
			Break
		}

	Run, "%sFilePath%" /O /S "/L=%TCPath%\%DirName1%"
}