Hallo,

nutze die Komponente EventLog und folgenden Code. Nun wird die test.log-Datei beim Klick auf Button1 immer neu angelegt obwohl sie schon existiert. Wieso ist das so?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  EventLog1.LogType := ltFile;
  EventLog1.FileName := 'D:\myprog\eventlog\test.log';
  EventLog1.Active := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    EventLog1.Log('This is a log.');
    EventLog1.Warning('This is a warning.');
    EventLog1.Error('This is a error.');
    EventLog1.Info('This is a info.');
    EventLog1.Debug('This is a debug.');
end;

Danke!

.. dazu müsste man sich die Sourcen von TEventLog anschauen..

Aber vielleicht suchst Du auch das:

markieren

Code:

procedure Pause; Pause the sending of log messages.
 procedure Resume; Resume sending of log messages if sending was paused

Grüße
Klaus

Zitat von Klaus01:

.. dazu müsste man sich die Sourcen von TEventLog anschauen..

Wo findet man die?

Zitat von AlexII:

Zitat von Klaus01:

.. dazu müsste man sich die Sourcen von TEventLog anschauen..

Wo findet man die?

hier:http://www.freepascal.org/docs-html/...teventlog.html

Gruß
k-h