Feststellen ob eine Datei unbenutzt ist

[ichbins]

Du könntest ja einfach versuchen die File mit vollen schreibzugriffsrechten zu öffnen:

Delphi-Quellcode:

function fileinuse(filename:string):boolean;
var
  f:file;
begin
  result:=true;
  try begin
    assignfile(f,filename);
    filemode:=2;
    reset(f);
    result:=false;
    closefile(f);  
  except end;
end;