Fórum arquivo.jar + delphi #590868

function arquivoAberto(arquivo: string): Boolean;
var
  StreamArquivo: TFileStream;
begin
  if not FileExists(arquivo) then
    raise Exception.CreateFmt('O arquivo "%s" não existe', [arquivo])
  else
    try
      StreamArquivo := TFileStream.Create(arquivo, fmShareExclusive and fmOpenRead);
      StreamArquivo.Free;
      result := False;
    except
      result := True;
    end;
end;

if arquivoAberto('C:\\Arquivo.jar') then
 Showmessage('Arquivo aberto.')
else
 Showmessage('Arquivo fechado');