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:
1 2 3 4 |
var sciezkaDoAplikacji : String ; begin sciezkaDoAplikacji := ExtractFilePath(Application.ExeName) ; |
Autor: Iskar