GunSmoker,
Спасибо за пример, хотя мне кажется он бесполезен из-за главного недостатка - Этот API рассчитывает на то, что программа, заблокировавшая файл, реализует и зарегистрирует специальный интерфейс. Если же приложение не озаботится этой задачей, то вы не сможете использовать этот метод.
Я уверен, что 95% программ никакой специальный интерфейс не реализуют.
1.
2.
3.
4.
5.
var FileInfo: IFileIsInUse;
begin
FileInfo:=GetFileInUseInfo('G:\Programs\Telegram\tdata\working');
здесь FileInfo=nil
end;
Проверял на 2-х файлах. На одном из них Far Manager выдал конкретно ID и имя процесса, который заблокировал указанный файл, а предложенная функция GetFileInUseInfo возвращает nil (не проходит условие while (enumMoniker.Next(1, enumIndex, nil) = S_OK) - возвращает число 1)
Видимо, есть какой-то другой способ узнать имя или ID процесса, который блокирует файл.
