'================================================================
'= パス名の操作(�X)

'=    (PathFindOnPath.bas)
'================================================================
#include "Windows.bi"

' 標準のパスおよび指定したパスからファイルを検索
Declare Function Api_PathFindOnPath& Lib "shlwapi" Alias "PathFindOnPathA" (ByVal pszPath$, ByVal ppszOtherDirs$)

Var Shared Text1 As Object
Var Shared Edit1 As Object
Var Shared Button1 As Object

Text1.Attach GetDlgItem("Text1") : Text1.SetFontSize 14
Edit1.Attach GetDlgItem("Edit1") : Edit1.SetFontSize 14
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Edit1.SetWindowText "calc.exe"
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var pPath As String
    Var Ret As Long

    Text1.SetWindowText ""

    pPath = Edit1.GetWindowText & String$(255, Chr$(0))

    Ret = Api_PathFindOnPath(pPath, ByVal 0)
    If Ret Then
        Text1.SetWindowText pPath
    Else
        Text1.SetWindowText "見当たりません！"
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End