;ファイル名からパス通ってるとこを検索してフルパスを返す　なければ""　　環境変数path,pathextをつかってる
;	lnkcheck:非0でリンク先を調べる　先がURLの場合、""になっちゃうから、.lnkを返すよ
mage_which(runstr,lnkcheck=0)
{
	if(runstr==""){
		return ""
	}
	tempbatchlines:=A_BatchLines
	SetBatchLines,-1	;自動的に実行されるSleepの間隔を設定(実行速度とCPU負荷に影響)
	
	SplitPath,runstr,nameext,dir,ext	;パス分割
	
	if(dir!=""){
		;ディレクトリつき
		wpath:=dir
	}
	else{
		envget,wpath,path
	}
	
	envget,wpathext,pathext
	wpathext:=";" wpathext	;拡張子なしを追加
	
	;allstr:=""
	Loop,PARSE,wpath,;
	{
		wdir:=A_LoopField
		
		Loop,PARSE,wpathext,;
		{
			wfull:=wdir "\" nameext A_LoopField
			
			;allstr.=wfull "`n"
			ifExist,% wfull
			{
				setbatchlines,% tempbatchlines
				if(lnkcheck!=0 && A_LoopField=".lnk"){	;ifの=は、いっこで小文字大文字を区別しない
					FileGetShortcut,%wfull%,lnksaki
					
					if(lnksaki!=""){	;URLだとカラになっちゃうなぜか
						return lnksaki
					}	;空じゃなければ↓wfull、つまりhoge.lnkを返す
				}
				
				return wfull
			}
		}
	}
	setbatchlines,% tempbatchlines
	return ""
}