Как узнать, занят ли файл каким-нибудь приложением?

← →
Брат © (2002-11-07 13:02) [0]

В программе происходит архивация файлов. Если файл инфицирован, его на время занимает Антивирус Касперского, поэтому Winrar матерится, что не может заархивировать файл... Как узнать, занят ли файл?

← →
Ученик © (2002-11-07 13:13) [1]

function FileLocked(const Path : string) : Boolean;
var
hFile : Integer;
begin
Result := FileExists(Path);
if Result then begin
hFile := FileOpen(Path, fmOpenRead + fmShareExclusive);
Result := hFile = -1;
if not Result then
FileClose(hFile)
end
end;

Как узнать, занят ли файл каким-нибудь приложением? Найти похожие ветки