Zugriff auf Datei gescheitert, von anderem Prozess verwendet

[DeddyH]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const sDateiname = 'C:\Test.txt'; //nur zum Testen
var F: TextFile;
begin
  AssignFile(F,sDateiname);
  {$I-}
  if FileExists(sDateiname) then
    Append(F)
  else
    Rewrite(F);
  {$I+}
  if IOResult = 0 then
    begin
      writeln(F,'Eine weitere Zeile');
      CloseFile(F);
    end
  else
    ShowMessage(Format('IOResult = %d',[IOResult]));
end;