Delphi Проверить Открыт Ли Файл

Для проверки открытости файла в Delphi можно использовать функцию FileIsOpen из модуля SysUtils. Она принимает в качестве аргумента файловый дескриптор и возвращает True, если файл открыт, и False, если закрыт.

var
   fileHandle: THandle;
begin
  fileHandle := FileOpen('C:\MyFile.txt', fmOpenRead);
  if fileHandle = INVALID_HANDLE_VALUE then begin
    // файл не открыт
  end else begin
    if FileIsOpen(fileHandle) then begin
      // файл открыт
    end else begin
      // файл закрыт
    end;
    FileClose(fileHandle);
  end;
end;

В данном примере мы открываем файл 'C:\MyFile.txt' на чтение и проверяем его открытость с помощью функции FileIsOpen. Если файл открыт, то выполняем необходимые действия и закрываем файл с помощью функции FileClose. Если же файл не открыт, то пропускаем эту часть кода и сразу закрываем файл.