Função para trazer nome do .prg

[volp]

Olá galera, venho pedir o auxilio de vocês para terminar um projeto. Preciso de uma função ( nativa ou não ) que me traga o nome do .PRG em que a função esta,alguém sabe se isso é possível ? Utilizamos xHarbour.


Abraços

[alxsts]

Olá!

Veja a função ProcName()

[volp]

Eu tentei mas ele retorna o nome da função, alias já estou usando ela mas ainda falta pegar o .PRG porem não encontro nada que me traga ! o gozado e que quando o programa da erro o xharbour me trás a função, linha e o .PRG que ele se encontra e o meu programa precisa praticamente disto.

[janio]

FWriteLine( nHandle1, "Computador...: " + NetName() )
FWriteLine( nHandle1, "Programa.....: " + Hb_CmdArgArgV() )
FWriteLine( nHandle1, "Funcao.......: " + ProcName(2) )
FWriteLine( nHandle1, "Linha........: " + AllTrim( Str(ProcLine(2)) ) )
FWriteLine( nHandle1, "Prg..........: " + procfile(2) )
FWriteLine( nHandle1, "Pasta........: " + CurDir() )

Janio

[volp]

Muito obrigado, era exatamente isso que eu necessitava. Obrigado a todos

Abraços