Należy skorzystać z funkcji ExtractFilePath, która zwraca ściężkę do podanego w parametrze pliku. Jako argument wysyłamy nazwę exeka, którą odczytujemy z Application.ExeName:
[crayon-6511c506b8551450856434/]
Autor: Iskar