'===========================================================================
' 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