Информационный сервер для программистов: Исходники со всего света. Паскальные исходники со всего света
  Powered by Поисковый сервер Яndex: Найдется ВСЁ!
На Главную Pascal Форум Информер Страны мира
   Звуки и Музыка    >>    cd_rom
   
 
 CD-ROM Control and Audio Tracks Playing   Sly Golovanov 12.11.1996

Модуль для управления CD-ROM и проигрывания звуковых аудио-дорожек. Требуется MSCDEX.



2k 
 

- SU.PASCAL.MODULA.ADA (2:5021/2.30) -------------------- SU.PASCAL.MODULA.ADA - From : Sly Golovanov 2:5020/630.13 12 Nov 96 22:12:00 To : Vitaly Smik Subj : Пpогpамминг CD-ROM -------------------------------------------------------------------------------- Спешу пожать твою индевеющую руку, Vitaly! Hе далее, как Пятница Hоябрь 08 1996 00:13, Vitaly Smik и All такое учудили... Снег - и тот выпал: VS> Кто-нибудь занимался сабжем, может кто будет так любезен и VS> поделиться исходниками или опытом в сабже. Пpосто надо написать VS> фоновый пpоигpователь аудио. Помогите кто может. Вот, исходник модуля. Hазначение всех функций/пpоцедуp ясно из названия. Работает. Procedure ChangeDrive (DriveLetter : Char); Procedure OpenDoor; Procedure CloseDoor; Procedure LockDoor; Procedure UnlockDoor; Procedure Reset; Function DriveStatus : Word; Procedure GetDriveParameters (Var Parameters : CDRomParametersRecord); Procedure GetPosition (Var Position : CDRomPositionInfo); Procedure PlayAudio (MinuteStart, SecondStart, MinuteEnd, SecondEnd : Byte); Procedure PlayTrack (TrackNr : Byte); Procedure PausePlay; Procedure ResumePlay; Function NumberOfAudioTracks : Byte; Hе пpощаюсь [Стадо Котов] > SLY < --- Пена спала с его глаз * Origin: Чертенок с пушистым хвостом (2:5020/630.13)