Per sapere il percorso completo (comprensivo del nome del file) del programma in esecuzione basta usare Application.Exename. Se invece si è interessati solo alla directory si può estrarla usando la funzione ExtractFilePath così: ExtractFilePath(Application.Exename).
Esiste inoltre la funzione ExtractFileName che ritorna il nome dell'applicazione.