关于在Delphi环境下.如何给系统日志加记录..和日志空格的问题

Question

编号:A00011用户:万燕飞当前时间:2008-05-28 18:40:31 想改成 编号:A00011 用户:万燕飞 当前时间:2008-05-28 18:40:31 
编号:A00012 用户:郑秀文 当前时间:2008-05-28 18:41:10 
各位麻烦看看.如果解决不了.也没事.共同探讨也行..再此感谢.. 如果问题解决了.分不是问题.

Answer 1

你所说的系统日志钩子 我用过的.它是截取窗口位置和鼠标位置.消息类型和时间.然后在创建一个TXT的文本存在绝对的相对路径!

Answer 2

那是要不一个记录系统的日志吗？
procedure SystemLog(UserID, UserName: string);
var
  LogList: TStringList;
  LogFile, LogText: string;
begin
  LogList := TStringList.Create;
  try
    LogFile := ExtractFilePath(ParamStr(0)) + 'System.log';
    if FileExists(LogFile) then
      LogList.LoadFromFile(LogFile);
    LogText := Format('编号:%s 用户:%s 当前时间:', [UserID, UserName]) +
      FormatDateTime('yyyy-mm-dd hh:nn:ss', Now);
    LogList.Add(LogText);
    while LogList.Count > 1000 do
      LogList.Delete(0);
    LogList.SaveToFile(LogFile);
  finally
    LogList.Free;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  //测试
  SystemLog('A00011', '万燕飞');
  SystemLog('A00012', '郑秀文');
end;

Answer 3

1.路径不存在.
2.设置好路径.Can't create file[]!

Answer 4

问题我已经解决了.我换的是另外一种方法.用SQL来获取系统日志!