今天需要用到日志,沒想到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('關(guān)閉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('創(chuàng)建form'); end; end.
以下截圖就是運行并退出后生成的日志:


浙公網(wǎng)安備 33010602011771號