; 2005/10/30 dokas_mg (update 2007/08/25)
#NoEnv
If 0 != 1
  Return
pathScript = %1%
If PathFindExtension(pathScript) != ".ahk"
{
  MsgBox, 48, , 拡張子が .ahk ではありません
  Return
}
pathLink := PathRemoveExtension(pathScript)".lnk"
FileCreateShortcut, %A_AhkPath%, %pathLink%, , "%pathScript%"
Return

; ダメ文字対応パス関数
PathFindExtension(v)
{
  Return DllCall("SHLWAPI.DLL\PathFindExtensionA", Str, v, Str)
}
PathRemoveExtension(v)
{
  tmp := v
  DllCall("SHLWAPI.DLL\PathRemoveExtensionA", Str, tmp, Str)
  Return tmp
}