秋·風

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.