comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Anotadores en Delphi [Open Source]

  • 1 Respuestas
  • 1484 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Matabarras

  • *
  • Underc0der
  • Mensajes: 129
  • Actividad:
    0%
  • Reputación 0
  • In-Seguridad informática
    • Ver Perfil
  • Skype: Matabarrasfud
« en: Octubre 12, 2014, 07:42:54 pm »
Aqui el de metal_kingdom , solo es abrirlo y se guarda solo.
Código: Delphi
  1. program anotator;
  2.  
  3. var
  4.   S: textfile;
  5.  
  6. begin
  7.   AssignFile(S, 'func.txt');
  8. {$I-} // No mostramos errores I/O para evitar msgboxes innecesarios.
  9.   append(S); // intentamos escribir en fichero existente.
  10. {$I+} // Vemos errores para comprobarlos
  11.   if IOResult <> 0 then // [0 = Fue bien] Si el resultado no fue bueno al comprobar entonces ..
  12.     rewrite(S); // si no se pudo entonces creamos archivo.
  13.   WriteLn(S, paramstr(0)); // escribimos ruta completa del archivo en nueva línea.
  14.   closefile(S); // cerramos archivo.
  15. end.

Aqui el que hice yo ya hace, lo hice para que se anotara al cliquear.
Código: Delphi
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     boton: TButton;
  12.     procedure botonClick(Sender: TObject);
  13.     procedure FormCreate(Sender: TObject);
  14.   private
  15.     { Private declarations }
  16.   public
  17.     { Public declarations }
  18.   end;
  19.  
  20. var
  21.   Form1: TForm1;
  22.   myFile : TextFile;
  23.   text   : string;
  24.   sFileName : string;
  25. implementation
  26.  
  27. {$R *.dfm}
  28.  
  29. procedure TForm1.botonClick(Sender: TObject);
  30. begin
  31. sFileName:= ExtractFileName(Application.ExeName);
  32.  
  33.  
  34.  
  35.    AssignFile(myFile, 'Funcionales.txt');
  36.    Append(myFile);
  37.  
  38.    WriteLn(myFile, sFileName);
  39.  
  40.    CloseFile(myFile);
  41.  
  42.    Reset(myFile);
  43.  
  44.    CloseFile(myFile);
  45.  end;
  46.  
  47. procedure TForm1.FormCreate(Sender: TObject);
  48. begin
  49.     AssignFile(myFile, 'Funcionales.txt');
  50.     ReWrite(myFile);
  51.     CloseFile(myFile);
  52. end;
  53.  
  54. end.

El codigo de metal_kingdom  es más corto,  y mejor.

Simplemente este post es una excusa para saludarles y espero que les vaya todo bien, saludos!  ;D
« Última modificación: Octubre 12, 2014, 08:48:31 pm por Expermicid »
No esperes nada, vive la vida, y que los demas hagan lo que ellos creen.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5409
  • Actividad:
    20%
  • Reputación 33
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« Respuesta #1 en: Octubre 12, 2014, 09:23:00 pm »
Matabarras!! un gusto verte nuevamente por casa!!
Muchisimas gracias por el aporte bro!!

Saludos!
ANTRAX


 

¿Te gustó el post? COMPARTILO!



[Sintaxis general de Delphi] By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2049
Último mensaje Febrero 24, 2010, 04:35:15 pm
por ANTRAX
Eliminar acentos y otros agregados de un caracter/cadena Delphi 2009

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3258
Último mensaje Febrero 24, 2010, 04:57:14 pm
por ANTRAX
1er troyano en Delphi By: Geek Lord Venezuela [R00t] Team

Iniciado por ANTRAX

Respuestas: 0
Vistas: 3490
Último mensaje Febrero 24, 2010, 04:34:48 pm
por ANTRAX
Poner splash screen con progress bar en delphi

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2977
Último mensaje Febrero 24, 2010, 04:54:23 pm
por ANTRAX
[Delphi] Project Spartacus 1.0 (Regalo de Navidad)

Iniciado por BigBear

Respuestas: 2
Vistas: 1677
Último mensaje Diciembre 26, 2014, 11:54:34 pm
por n4pst3r