fcl-sound: Allow opening audio file with fpwavereader even if it is being read by an other process.

git-svn-id: trunk@27791 -

packages/fcl-sound/src/fpwavreader.pas

@@ -74,7 +74,7 @@ begin
   if (FFileName <> '') and Assigned(fStream) then begin
     fStream.Free;
   end;
-  fStream := TFileStream.Create(FileName, fmOpenRead);
+  fStream := TFileStream.Create(FileName, fmOpenRead + fmShareDenyWrite);
   if Assigned(fStream) then begin
     Result := LoadFromStream(fStream);
     FFileName := FileName;