创建快捷方式fileCreateShortcut

;~ AutoHotkey 版本: 1.1.2.3
;~ 操作系统:    Windows XP
;~ 作者:        sunwind  
;~ 博客:        http://blog.csdn.net/liuyukuan
;~ 脚本说明：此工具便于发送快捷方式到指定目录中.
;~ 脚本版本：   v1.0
;~  
/*
path_exe=%1%
alias=%2%
;~ HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders
RegRead, folder_startup, HKEY_CURRENT_USER, SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders, Startup
MsgBox, folder_startup are in: %folder_startup%
FileCreateShortcut, %path_exe%, %folder_startup%%alias%.lnk
IfExist,%folder_startup%%alias%.lnk
	TrayTip,,成功创建快捷方式!,10

*/
;~ links=F:VHD_WIN7UsersKevinFavorites链接
links=C:Documents and SettingsAdministratorApplication DataMicrosoftInternet ExplorerQuick Launch
^F7::
IfWinActive,ahk_class TTOTAL_CMD
	Send ^3
else
{
	clipboard=
	send ^c
	ClipWait, 2
	if ErrorLevel
	{
		MsgBox, The attempt to copy text onto the clipboard failed.
		return
	}

	clipboard=%clipboard%
}
Path_:=clipboard

InputBox, alias,请为快捷方式起个名字,%Path_%
if ErrorLevel
    MsgBox, CANCEL was pressed.
else
    FileCreateShortcut, %Path_%, %links%%alias%.lnk
IfExist,%links%%alias%.lnk
	TrayTip,,成功创建快捷方式!,10


;~ FileCreateShortcut, %path%, C:WindowsSystem32%alias%.lnk

; 最后一个参数中的字母 "i" 将快捷键设成 Ctrl-Alt-I ：
;~ FileCreateShortcut, Notepad.exe, %A_Desktop%My Shortcut.lnk, C:, "%A_ScriptFullPath%", My Description, C:My Icon.ico, i