Hola!
No se como se podrá hacer lo que dices, pero yo me he conformado con saber si un fichero esta abierto, la solución es sencilla, simplemente tienes que abrir el fichero que tu quieras en modo exclusivo, claro esta, si lo abres en modo exclusivo y ya esta abierto la funcion devolverá false porque cascara. Suerte ya me dirás si te vale.
try
with TFileStream.Create('c:\autoexec.bat', fmOpenRead or fmShareExclusive) do free;
Result := False;
except
Result := True;
end;
|