usesmmsystem; procedure
TForm1.Button1Click(Sender: TObject); var
s: array
[0..64] of
Char; error: Cardinal; Text: array
[0..255] of
Char; begin
error := mciSendstring('open cdaudio alias geraet', nil
, 0, Handle); if
error <> 0 then
begin
mciGetErrorstring(error, @Text, 255); ShowMessage(Text); mciSendstring('close geraet', nil
, 0, Handle); Exit; end
; error := mciSendstring('status geraet mode', @s, SizeOf(s), Handle); if
error <> 0 then
begin
mciGetErrorstring(error, @Text, 255); ShowMessage(Text); mciSendstring('close geraet', nil
, 0, Handle); Exit; end
; mciSendstring('close geraet', nil
, 0, Handle); ShowMessage('Message: ' + s); end
;