Как узнать, занят ли файл каким-нибудь приложением? [D5, Win95/98, Win2k]
Брат © (2002-11-07 13:02:00)
В программе происходит архивация файлов. Если файл
инфицирован, его на время занимает Антивирус Касперского, поэтому
Winrar матерится, что не может заархивировать файл... Как узнать,
занят ли файл?
Ученик (2002-11-07 13:13:00) [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;
Наверх 
ЧАТ |
Орешник |
|
