Como posso obter o local da aplicação???

Como posso obter o local da aplicação, o GetCurrentDir não funciona se eu executar a aplicação a partir de um atalho, preciso de uma função que me de o caminho do executável.