Get Executable Filename - FreeBASIC

#define _UNICODE 1
#define UNICODE 1
#include "windows.bi"

'' Author: Ascend4nt

Function ExeName() As WString Ptr
  Dim sExeName As WString * MAX_PATH
  Dim nLen As Integer
  Dim sRet As WString Ptr
  nLen = GetModuleFileName(NULL, sExeName, MAX_PATH)

  sRet = Allocate( (nLen + 1) * Len(WString) )
  If nLen = 0 Then
      *sRet = ""
  Else
      *sRet = sExeName
  End If
  Return sRet
End Function

'' == MAIN ==

Dim sFileName As WString Ptr
sFileName = ExeName()

MessageBox(0, !"Filename:\n" + *sFileName, "Name of Executable", MB_OK Or MB_ICONINFORMATION)