如何获取FreeBasic动态链接库中的当前文件名？

Print "当前文件名：" + __FILE__

Declare Function GetModuleFileName Lib "kernel32.dll" Alias "GetModuleFileNameA" (ByVal hModule As Integer, ByVal lpFilename As String, ByVal nSize As Integer) As Integer

Dim buffer As String * 260
Dim length As Integer

length = GetModuleFileName(0, buffer, Len(buffer))
If length > 0 Then
    Print "当前文件名：" + Left$(buffer, length)
End If

Declare Function readlink Lib "libc.so.6" (ByVal path As String, ByVal buf As String, ByVal bufsize As Integer) As Integer
Declare Function basename Lib "libc.so.6" (ByVal path As String) As String

Dim buffer As String * 260
Dim length As Integer

length = readlink("/proc/self/exe", buffer, Len(buffer))
If length > 0 Then
    Print "当前文件名：" + basename(Left$(buffer, length))
End If