schau mal den Code, den ich geschrieben hab. Der überprüft einfach, ob die Datei für den Schreibzugriff geöffnet werden kann, egal an was es jetzt liegt, dass sie nicht geöffnet werden kann, ob sie nicht existiert, geöffnet ist usw...
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;