Extraer directorio de la app

Trucos variados de código fuente
ol1software
Site Admin
Mensajes: 10
Registrado: Dom Sep 12, 2021 10:53 am

Extraer directorio de la app

Mensaje por 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)
*******************************************************
JOSE OLI
*******************************************************
Delphi Heaven ES <Webmaster>
Responder