Ответ 1
Наконец я нашел обходное решение для этого: blogs.embarcadero.com/ao/2011/10/04/39144#comment-7998
So "S: = ExtractFilePath (paramstr (0)); S: = Копировать (S, 1, length (S) - 14); выполняет свою работу.
Обратите внимание, что длина S зависит от вашего названия приложения.