Скачать CD-ROM Control and Audio Tracks Playing

12.11.1996
Скачать файл (3,00 Кб)

Вот, исходник модуля.
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;