BCX Console Demonstration Program s72.bas

 
PRINT ExeName$()

FUNCTION ExeName$
  LOCAL hModule AS HMODULE
  LOCAL Buffer$
  hModule = GetModuleHandle(NULL)
  GetModuleFileName(hModule, Buffer$, 256)
  FUNCTION = Buffer$
END FUNCTION

Result:

D:\Dev\BCX\S72.exe