
13.02.2013, 10:16
|
 |
Let Me Show You
|
|
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
|
|
Код:
var
MemoryStream: TMemoryStream;
begin
MemoryStream:=TMemoryStream.Create;
try
Label1.Caption:='Loading...';
Application.ProcessMessages;
IdHTTP1.Get('http://grafmoto.narod.ru/winxp.wav', MemoryStream);
Label1.Caption:='Playing...';
Application.ProcessMessages;
PlaySound(MemoryStream.Memory, 0, SND_MEMORY or SND_SYNC);
Label1.Caption:='Press Button...';
finally
MemoryStream.Free;
end;
end;
никаких дополнительных библиотек не нужно!
__________________
Пишу программы за еду.
__________________
|