TFileStream. Открыть используемый файл

[Shouldercannon]

Есть файл *.mp3, открытый через Winamp. Пытаюсь получить размер этого файла

function GetFileSize(FileName: string): Integer;
var
  FS: TFileStream;
begin
  try
    FS := TFileStream.Create(Filename, fmOpenRead);
  except
    Result := -1;
  end;
  if Result <> -1 then Result := FS.Size;
  FS.Free;
end;

В итоге
Project Project1.exe raised exception class EFOpenError with message 'Cannot open file'. Процесс не может получить доступ к файлу, так как этот файл занят другим процессом'.
Или TFileStream не поддерживает открытие файлов, занятыми другими процессами?

[Аватар]

fmOpenRead or fmShareDenyNone
Поддерживает, если только не открыт монопольно другой программой

[Shouldercannon]

То, что надо.