Bug em hb_GetEnv/GetEnv

[dbsh]

hb_GetEnv('programfiles'))
e
GetEnv('programfiles'))
no windows 64 bits
retorna sempre "C:\Program Files (x86)"

isto acontece sempre que duas variáveis de ambiente são iguais ate a parte que você necessita
EX:
ProgramFiles
ProgramFiles(x86)

gambiarra para fazer funcionar

Código: Selecionar todos

FUNCTION GetEnvProgramFiles()
LOCAL sRet

sRet := hb_GetEnv('programfiles')

IF Right(Upper(sRet), 5) = '(X86)'
    sRet := Trim(Left(sRet, Len(sRet) - 5))
ENDIF

RETURN sRet