Código Delphi [-]TuVariable := ExtractFileDir(Application.ExeName) + 'NombreArchivo.txt';
TuVariable := ExtractFileDir(Application.ExeName) + 'NombreArchivo.txt';