Code:Uses, MMSystem Procedure OpenDoor; Begin mciSendString('Set cdaudio door open', nil, 0, 0); End; Procedure CloseDoor; Begin mciSendString('Set cdaudio door closed', nil, 0, 0); End;
Results 1 to 1 of 1
|
Click Here to Expand Forum to Full Width |