| 1 | ; #EXAMPLE# =====================================================================================================================
|
|---|
| 2 | MsgBox(0, "PathFindOnPath Example", _
|
|---|
| 3 | StringFormat( "Full path of notepad.exe:\n%s\n\n" & _
|
|---|
| 4 | "Find ntuser.dat in profile folder, using custom paths:\n%s", _
|
|---|
| 5 | _WinAPI_PathFindOnPath("notepad.exe"), _WinAPI_PathFindOnPath("ntuser.dat", @UserProfileDir) _
|
|---|
| 6 | ))
|
|---|
| 7 | ; ===============================================================================================================================
|
|---|
| 8 |
|
|---|
| 9 | ; #FUNCTION# ====================================================================================================================
|
|---|
| 10 | ; Name...........: _WinAPI_PathFindOnPath
|
|---|
| 11 | ; Description ...: Searchs for a file in the default system paths
|
|---|
| 12 | ; Syntax.........: _WinAPI_PathFindOnPath($szFile, $aExtraPaths="", $szPathDelimiter=@LF)
|
|---|
| 13 | ; Parameters ....: $szFile - Filename to search for
|
|---|
| 14 | ; $aExtraPaths - Extra paths to check before any others.
|
|---|
| 15 | ; $szPathDelimiter - Delimiter used to split $aExtraPaths if it's an non-empty string (StringSplit with flag 2).
|
|---|
| 16 | ; Return values .: Success - Full path of found file
|
|---|
| 17 | ; Failure - Unchanged filename, @error=1
|
|---|
| 18 | ; Author ........: Daniel Miranda (danielkza)
|
|---|
| 19 | ; Modified.......:
|
|---|
| 20 | ; Remarks .......: $aExtraPaths can contain a list of paths to be checked before any system defaults.
|
|---|
| 21 | ; It can be an array or a string. If the former, it shall not have a count in it's first element.
|
|---|
| 22 | ; If the latter, it will be split using $szPathDelimiter as the delimiter, that defaults to @LF.
|
|---|
| 23 | ; Related .......:
|
|---|
| 24 | ; Link ..........; @@MsdnLink@@ PathFindOnpath
|
|---|
| 25 | ; Example .......; No
|
|---|
| 26 | ; ===============================================================================================================================
|
|---|
| 27 |
|
|---|
| 28 | Func _WinAPI_PathFindOnPath(Const $szFile, $aExtraPaths = "", Const $szPathDelimiter=@LF)
|
|---|
| 29 | Local $iExtraCount = 0
|
|---|
| 30 | If IsString($aExtraPaths) Then
|
|---|
| 31 | If StringLen($aExtraPaths) Then
|
|---|
| 32 | $aExtraPaths = StringSplit($aExtraPaths, $szPathDelimiter, 1+2)
|
|---|
| 33 | $iExtraCount = UBound($aExtraPaths, 1)
|
|---|
| 34 | EndIf
|
|---|
| 35 | ElseIf IsArray($aExtraPaths) Then
|
|---|
| 36 | $iExtraCount = UBound($aExtraPaths)
|
|---|
| 37 | EndIf
|
|---|
| 38 |
|
|---|
| 39 | Local $tPaths, $tPathPtrs
|
|---|
| 40 | If $iExtraCount Then
|
|---|
| 41 | Local $szStruct = ""
|
|---|
| 42 | For $path In $aExtraPaths
|
|---|
| 43 | $szStruct &= StringFormat("wchar[%d];", StringLen($path)+1)
|
|---|
| 44 | Next
|
|---|
| 45 |
|
|---|
| 46 | $tPaths = DllStructCreate($szStruct)
|
|---|
| 47 | $tPathPtrs = DLLStructCreate(StringFormat("ptr[%d];", $iExtraCount+1))
|
|---|
| 48 |
|
|---|
| 49 | For $i=1 To $iExtraCount
|
|---|
| 50 | DLLStructSetData($tPaths, $i, $aExtraPaths[$i-1])
|
|---|
| 51 | DLLStructSetData($tPathPtrs, 1, DLLStructGetPtr($tPaths, $i), $i)
|
|---|
| 52 | Next
|
|---|
| 53 | DLLStructSetData($tPathPtrs, 1, Ptr(0), $iExtraCount+1)
|
|---|
| 54 | EndIf
|
|---|
| 55 |
|
|---|
| 56 | Local $aRet = DLLCall("shlwapi.dll", "int", "PathFindOnPathW", _
|
|---|
| 57 | "wstr" , $szFile, _
|
|---|
| 58 | "ptr" , DLLStructGetPtr($tPathPtrs) _
|
|---|
| 59 | )
|
|---|
| 60 | If @error OR NOT $aRet[0] Then Return SetError(1, 0, $szFile)
|
|---|
| 61 |
|
|---|
| 62 | Return $aRet[1]
|
|---|
| 63 | EndFunc
|
|---|
