Subversion Repositories spacemission

Rev

Rev 57 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 57 Rev 99
Line 943... Line 943...
943 
 
 943 
 
944 
procedure TDirectSoundBuffer.LoadFromFile(const FileName: string);
 944 
procedure TDirectSoundBuffer.LoadFromFile(const FileName: string);
945 
var
 945 
var
946 
  Stream: TFileStream;
 946 
  Stream: TFileStream;
947 
begin
 947 
begin
948 
  Stream := TFileStream.Create(FileName, fmOpenRead);
 948 
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
949 
  try
 949 
  try
950 
    LoadFromStream(Stream);
 950 
    LoadFromStream(Stream);
951 
  finally
 951 
  finally
952 
    Stream.Free;
 952 
    Stream.Free;
953 
  end;
 953 
  end;
Line 2266... Line 2266...
2266 
 
 2266 
 
2267 
procedure TSoundEngine.EffectFile(const Filename: string; Loop, Wait: Boolean);
 2267 
procedure TSoundEngine.EffectFile(const Filename: string; Loop, Wait: Boolean);
2268 
var
 2268 
var
2269 
  Stream: TFileStream;
 2269 
  Stream: TFileStream;
2270 
begin
 2270 
begin
2271 
  Stream := TFileStream.Create(Filename, fmOpenRead);
 2271 
  Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
2272 
  try
 2272 
  try
2273 
    EffectStream(Stream, Loop, Wait);
 2273 
    EffectStream(Stream, Loop, Wait);
2274 
  finally
 2274 
  finally
2275 
    Stream.Free;
 2275 
    Stream.Free;
2276 
  end;
 2276 
  end;