' 發展單位：風禹科技驗證有限公司
' 撰寫人：鄭子璉(Tzu-Lien, Cheng, 璉璉) ，成大水博肄，微軟最有價值專家
' Web: http://tlcheng.twbbs.org/TLCheng/ E-Mail: qvb3377@ms5.hinet.net
' --------------------------------------------------------------------------------------

Module modShellTool
#Region "Windows API 宣告"
	<Runtime.InteropServices.DllImport("shell32.DLL", EntryPoint:="FindExecutable")> _
	 Private Function FindExecutable( _
	 ByVal lpFile As String, _
	 ByVal lpDirectory As String, _
	 ByVal lpResult As System.Text.StringBuilder _
	 ) As Integer
	End Function
#End Region

	Private Const MAX_PATH = 260

	Public Function myFindExecutable(ByVal lpFullFilename As String) As String
		Dim summy As Integer
		Dim lpResult As New System.Text.StringBuilder(MAX_PATH)
		
		summy = FindExecutable(lpFullFilename, Nothing, lpResult)
		If summy > 32 Then
			Return lpResult.ToString()
		Else
			Return ""
		End If
	End Function

End Module