Datei bereits verwendet?

[ichbins]

Wie wärs einfach mit probieren-geht-über-studieren?

Delphi-Quellcode:

assignfile(f,filename);
filemode:=2;  //Modus für Lesen und Schreiben, Standard
try
  reset(f)
except
  closefile(f);
  filemode:=0;  //Read-Only-Modus (geht auch, wenn die Datei geöffnet ist)
  reset(f);
  dateikopieren;

  filemode:=2;  //filemode auf Standard zurücksetzen
end;