//---------------------------------------------------------------------------
#include 
//---------------------------------------------------------------------------
UnicodeString DirPath;
 
// Najbardziej uniwersalna metoda:
DirPath = ExtractFileDir(ExpandFileName(ParamStr(0)));
 
// Uwaga! Ta metoda nie zadziała w przypadku usług:
DirPath = ExtractFileDir(ExpandFileName(Application->ExeName));
 
 
 
DirPath = ExtractFileDir(Application->ExeName);
// Przykładowy wynik:
// C:\Users\insoftp\Documents\Embarcadero\Studio\Projects\.\Win64\Debug
 
// Uwaga! Taka ścieżka nie będzie poprawna dla "DefaultFolder" komponentu FileOpenDialog.
// W takiej sytuacji należy dokonać konwersji przy pomocy funkcji "ExpandFileName".
// Na podstawie ścieżki relatywnej, zwracana jest pełna ścieżka dostępu do pliku/katalogu.
 
// Przykładowy wynik przy użyciu funkcji "ExpandFileName":
// C:\Users\insoftp\Documents\Embarcadero\Studio\Projects\Win64\Debug