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.