Extraer directorio de la app

[ol1software]

Como extraer el nombre de la carpeta en la que se ejecuta nuestra app:
- Si tenemos nuestro ejecutable... c:\miapp\win32\debug\miap1.exe


ruta:=ExcludeTrailingPathDelimiter(ExtractFileDir(ExtractFilePath(paramstr(0))));
(c:\miapp\win32\debug)

- Si queremos navegar hacia detrás, repetimos la misma función:
ruta:=ExcludeTrailingPathDelimiter( ExtractFileDir(ExtractFilePath(ruta)) );
(c:\miapp\win32)


ruta:=ExcludeTrailingPathDelimiter( ExtractFileDir(ExtractFilePath(ruta)) );
(c:\miapp)