Проверить файл базы данных на возможность открытия в монопольном режиме

Материал из DRKB

Проверить файл базы данных на возможность открытия в монопольном режиме[править | править код]

function ApplicationUse(AName: string ) : boolean;
// проверка на занятость файла
var
  HFileRes: HFILE;
begin
  Result := False;
  if not FileExists(AName) then Exit;
  HFileRes := CreateFile(PChar(AName), GENERIC_READ or GENERIC_WRITE, 0, nil,
     OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  Result := (HFileRes = INVALID_HANDLE_VALUE);
  if not Result then CloseHandle(HFileRes);
end;


Source: Взято из http://forum.sources.ru
ID: 02768