dll - FreeBasic DLL で現在のファイル名を取得するにはどうすればよいですか?

Question

FreeBASIC DLL に独自のファイル名とパスを見つけるにはどうすればよいですか? 私はこれまでにこれを試しました: (rundll32 filename,DllMain で実行) コード:

#include "windows.bi"
Extern "Windows-MS"
Sub DllMain() Export
    dim This as String
    This = dir(command$(0))
    MessageBox( null, "Hello World", This, MB_OK )
End Sub
End Extern

. . . しかし、うまくいきません。

ただし、EXEとしてコンパイルすると、正常に動作します。

助言がありますか？ありがとう！