Ja klar. Die error Abfang routine spricht bei jedem Versuch die Datei zu öffen an, obwohl sie von keinem anderen Programm geöffnet ist. Code sieht so aus:
Delphi-Quellcode:
OpenDialog1.Filter := 'DRM Log Files|*.log;*.txt;*.bak|All Files|*.*';
if not OpenDialog1.Execute then
Exit;
ListBox1.Clear;
paint;
//Filemode:= fmOpenRead or fmShareCompat;
Button1.Enabled := False;
Button3.Enabled := False;
Button5.Enabled := False;
{$I-}
AssignFile(f, OpenDialog1.FileName);
TTextRec(f).Mode := fmOpenRead or fmShareDenyNone;
TTextRec(f).Mode := fmOpenWrite or fmShareDenyWrite;
Reset(f);
{$I+}
if IOResult = 0 then FileIsThere := true
else FileIsThere := false;
if FileIsThere then
begin
.
.
.
IOResult ist <>0
Mit filemode läßt sich die Datei wenigstens öffnen...
