Criar um arquivo Log ?

Delphi

30/07/2003

Pessoal vi uma vez em um programa feito em Vb que ele cria um arquivo
log com hora que o sistema inicioi o que aquele usuário executou no sistema.
Como poderia fazer isso.
Obrigado a tds!


Essistemas

Essistemas

Curtidas 0

Respostas

Hjmarcon

Hjmarcon

30/07/2003

var log : textfile;

try
AssignFile(log, ´c:\log.log´);
if not FileExists(´c:\log.log´) then
Rewrite(log,´c:\log.log´);
Append(log);
WriteLn(log, ´informações a serem inclusas´);
finally
CloseFile(log);
end;


GOSTEI 0
POSTAR