lazarus自带的eventlog

今天需要用到日志，没想到lazarus自带eventlog，使用还算简单，一看就明白，就不多说，直接上代码：

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs,EventLog;

type

  { TForm1 }

  TForm1 = class(TForm)
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
   FLog: TEventLog;

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  FLog.Info('关闭form');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FLog:=TEventLog.Create(nil);
  FLog.LogType:=ltFile;
  FLog.AppendContent:=true;
  FLog.FileName:=Extractfilepath(Paramstr(0)) +'QF.log';//将保存在当前目录，日志文件名称：QF.log
  FLog.Active:=True;
  FLog.RaiseExceptionOnError:=false;
  FLog.Info('创建form');
end;

end.

以下截图就是运行并退出后生成的日志：