Модуль для разблокировки файлов

Software19 лет в сервисе
Данные заказчика будут вам доступны после подачи заявки
14.11.2006

Необходимо разработать модуль на Delphi с 3-мя функциями:

1. функция isInUse(AFileName: string): boolean говорит заблокирован файл или нет

2. функция BlockedBy(AFileName: string):string для определения программы, которая блокирует файл

3. функция Unlock(AFileName:string) для разблокировки заблокированного файла