1С: Проверка доступности чтения\записи в файла

Понадобилось проверить в 1С есть ли в данный момент доступ на чтение\запись к некоторому файлу. Так как родными средствами 1С_ки я не нашел как это сделать, пришлось писать dll_ку для нее в Delphi 7. Вот сами исходники и откомпилированная dll FileAccess.rar. В 1С надо будет добавить следующий код

Объект = СоздатьОбъект("FileAccess.TFileAccess");
А = Объект.Access("c:\file.txt"); 
сообщить(А);

Для регистрации своей dll в системе надо выполнить следующий код в bat файле

chcp 1251
regsvr32.exe "C:\FileAccess.dll".


В переменной А могут быть следующие значения:
0 - Файл доступен для чтения\записи;
1 - Файл не доступен для чтения\записи;
2 - Другие ошибки;