28.06.2017, 12:17
|
|
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;
__________________
Пишу программы за еду.
__________________
|