 
 		IconFile := RegGetNewFileIcon(Exec)
 		IconFile := RegExReplace(IconFile,"i)%systemroot%",A_WinDir)
+		IconFile := RegExReplace(IconFile,"i)%ProgramFiles%",A_ProgramFiles)
 		IconFilePath := RegExReplace(IconFile,",-?\d*","")
 		StringReplace,IconFilePath,IconFilePath,",,A
 		If Not FileExist(IconFilePath)

		DstPath := A_Desktop
	NewFile := DstPath . "\" . NewFileName
	If FileExist(NewFile)
	{
		MsgBox, 4, 新建文件, 新建文件已存在，是否覆盖？
		IfMsgBox No
			Return
	}
		FileCopy,%SrcPath%,%NewFile%,1
	Gui,Destroy
	WinActivate,AHK_CLASS TTOTAL_CMD
	ControlGetFocus,FocusCtrl,AHK_Class TTOTAL_CMD

	SetBatchLines -1
	Loop,HKEY_CLASSES_ROOT ,,1,0
	{
		If A_LoopRegName=.lnk ;让新建快捷方式无效
			Continue
		Else If RegExMatch(A_LoopRegName,"^\..*")
		{
			Reg := A_LoopRegName
			Loop,HKEY_CLASSES_ROOT,%Reg%,1,1
