Versuche mal folgendes:
Delphi-Quellcode:
procedure LoadIntoStrings(aFileName: String; aStrings: TStrings);
var
FS: TFileStream;
begin
FS := TFileStream.Create(aFileName, fmOpenRead or fmShareDenyNone);
try
aStrings.LoadFromStream(FS);
finally
FS.Free;
end;
end;
Der Unterschied zur Delphi-Variante ist, dass auf die Datei kein Schreibverbot gelegt wird, das kann unter Umständen allerdings zu einer unvollständigen Log-Information führen, ist also Abwägungssache. Wenn das nicht geht, dann hast Du aber auch keine reele Chance
...
...