Problem mit TJvLogFile

[divBy0]

Guten Morgen!

In meinem Projekt nutze ich von den JEDIs die JvLogFile. Allerdings wirft die mir sporadisch einen Fehler beim Programmstart (Siehe Anhang).

Im FormCreate lege ich den Pfad für das Logfile fest und aktiviere die Komponente.

Delphi-Quellcode:

procedure TMainform.FormCreate(Sender: TObject);
var
  path: Array[0..MAX_PATH] of Char;
begin
  SHGetFolderPath(0, CSIDL_COMMON_APPDATA, 1, 0, @path[0]);
  commonAppDataPath := path+'\BDE\';

  JvLog.FileName := commonAppDataPath+'log.txt';
  JvLog.Active := true;
  JvLog.AutoSave := true;
  JvLog.Add('SYSTEM', 'Programm gestartet');
  ...
end;

Der Fehler passiert an dieser Stelle beim Speichern.

Delphi-Quellcode:

procedure TJvLogFile.SaveToFile(FileName: TFileName);
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate or fmShareExclusive); // <-- Hier kracht es!
  try
    SaveToStream(Stream);
  finally
    Stream.Free;
  end;
end;

Die Datei ist allerdings nirgends sonst geöffnet. Kennt das Problem jemand? Oder besser: Kennt jemand eine Lösung? :-D

Gruß :dp: