[dec]

Hola,

Código Delphi [-]
carpeta := ExtractFilePath(Application.ExeName);