compilado en delphi 7 pesa 40 kb y comprimido alcanza los 20's kb les dejo el codigo y los compilados
program Project2;
uses
SysUtils,
windows;
var
dir:string;
myfile:TextFile;
begin
dir:=ExtractFileName(ParamStr(0));{nombre de la bolita anotador con .exe}
dir:=copy(dir,1,length(dir)-4);{sin .exe}
AssignFile(myfile,'Funcionales.txt');
if FileExists(ExtractFilePath(ParamStr(0))+'\Funcionales.txt') then
append(myfile)
else
rewrite(myfile);
Writeln(myfile,dir);
closefile(myfile);
MessageBox(0,'Listo','Anotador',MB_OK);
end.
link [Enlace externo eliminado para invitados]