Anotadores en Delphi [Open Source]

program anotator;
 
var
  S: textfile;
 
begin
  AssignFile(S, 'func.txt');
{$I-} // No mostramos errores I/O para evitar msgboxes innecesarios.
  append(S); // intentamos escribir en fichero existente.
{$I+} // Vemos errores para comprobarlos
  if IOResult <> 0 then // [0 = Fue bien] Si el resultado no fue bueno al comprobar entonces ..
    rewrite(S); // si no se pudo entonces creamos archivo.
  WriteLn(S, paramstr(0)); // escribimos ruta completa del archivo en nueva línea.
  closefile(S); // cerramos archivo.
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    boton: TButton;
    procedure botonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  myFile : TextFile;
  text   : string;
  sFileName : string;
implementation

{$R *.dfm}

procedure TForm1.botonClick(Sender: TObject);
begin
sFileName:= ExtractFileName(Application.ExeName);



   AssignFile(myFile, 'Funcionales.txt');
   Append(myFile);

   WriteLn(myFile, sFileName);

   CloseFile(myFile);

   Reset(myFile);

   CloseFile(myFile);
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    AssignFile(myFile, 'Funcionales.txt');
    ReWrite(myFile);
    CloseFile(myFile);
end;

end.