'================================================================
'= パスからファイル名を取得

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

' パスからファイル名を取得
Declare Function Api_GetFileTitle% Lib "comdlg32" Alias "GetFileTitleA" (ByVal lpszFile$, ByVal lpszTitle$, ByVal cbBuf%)

Var TestString As String
Var Buffer As String
Var Ret As Integer

Buffer = string$(255, 0)
TestString = "c:\fbasicv63\bin\fbasic.exe"

Ret = Api_GetFileTitle(TestString, Buffer, len(Buffer))
Buffer = left$(Buffer, instr(1, Buffer, Chr$(0)) - 1)

Print "パス名 ：" & TestString
Print "ファイル名：" & Buffer

Stop
End