Dave Navarro, Jr. (dave@powerbasic.com)
EXENAME FUNCTION
------------------------------------------------------------------------------

FUNCTION ExeName() AS STRING

  LOCAL hModule AS LONG
  LOCAL buffer  AS ASCIIZ * 256

  hModule = GetModuleHandle(BYVAL 0&)

  GetModuleFileName hModule, Buffer, 256

  FUNCTION = Buffer

END FUNCTION