Показать сообщение отдельно
  #9  
Старый 28.06.2017, 12:17
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию 100% рабочий код

Цитата:
Сообщение от amam
а если у меня wav в TmemoryStream?
Ну и что?

Код:
var
  ms: TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  try
    ms.LoadFromFile('c:\Windows\Media\Ring08.wav');
    ms.Position:=0;
    PlaySound(
      ms.Memory,
      0,
      SND_MEMORY //or SND_ASYNC
    );
  finally
    ms.Free;
  end;
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием