如何得到这个EXE文件的名字（包括路径)

如何得到这个EXE文件的名字（包括路径)
function int GetModuleFileNameA( long hinst, ref string lpszFilename, uint cbFileName ) library "kernel32.dll"

ls_file = Space(255)
GetModuleFileNameA ( Handle ( GetApplication() ), ls_file, Len(ls_file) )
messagebox("当前:",ls_file)