/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
bin/Lib/Sounds.pas
26 строк
662 B
miks1965
Sounds correct
22 мар 2018, 10:31
22 мар 2018, 10:31
462d2f1
Код
Авторство
О чём код?
unit Sounds; {$reference 'PresentationCore.dll'} procedure PlaySound(fname: string); begin var fsound := new System.Windows.Media.MediaPlayer; fsound.Open(new System.Uri(fname,System.UriKind.RelativeOrAbsolute)); fsound.Play; end; type Sound = class fsound := new System.Windows.Media.MediaPlayer; public constructor (fname: string); begin Open(fname); end; procedure Open(fname: string) := fsound.Open(new System.Uri(fname,System.UriKind.RelativeOrAbsolute)); procedure Play := fsound.Play; procedure Stop := fsound.Stop; procedure Pause := fsound.Pause; procedure Reset := fsound.Position := new System.Timespan(0); end; end.