Nome do EXE no Harbour 3.2

[JoséQuintas]

No Harbour 3.0, hb_argv(0) retorna o nome do EXE completo com path
No Harbour 3.2, hb_argv(0) retorna o nome exatamente como foi digitado na linha de comando.

Como posso pegar o nome do EXE no harbour 3.2?

[JoséQuintas]

Isto funcionou, mas.... usei a forma correta?

Código: Selecionar todos

FUNCTION WAPI_GetModuleFileName()
   LOCAL lpFileName := Space(100), nSize := 100, nHandleDll
   nHandleDll := hb_LibLoad("kernel32.dll")
   hb_DynCall( { "GetModuleFileNameA", nHandleDll, HB_DYN_CALLCONV_STDCALL }, /* hModule */, @lpFileName, nSize )
   lpFileName := Substr( lpFileName, 1, Rat(".exe",Lower(lpFileName))+3)
   HB_LibFree( nHandleDll)
   RETURN lpFileName

[Toledo]

Já tentou usar a função hb_ProgName()?

Abraços,

[JoséQuintas]

Era um bug no Harbour 3.2.
Foi corrigido.
Inclusive HB_ProgName() também retornava em branco.