'===========================================================================
' Subject: EXENAME FUNCTION                  Date: 08-05-98 (12:33)       
' Author:  Dave Navarro, Jr.                 Code: PBDLL, PBCC            
' Origin:  dave@powerbasic.com             Packet: PBCC.ABC
'===========================================================================
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