procedure TForm1.Button1Click(Sender: TObject);
begin
CDDoorOpens();
end;


procedure CDDoorOpens();
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

我已在uses里加了Mmsystme

问题是.这个光驱控制函数 mciSendString 为什么不能出现在自定义的过程里呢?
这段代码报错.把 mciSendString 换成别的.一切正常,请问这是怎么回事?

在这里都找不到答案,敢问我还能去哪里找?惭愧!

楼上的代码还是不行.

已解决.
问题出在句柄,
写成以下代码就OK了.

mciSendString('Set cdaudio door open wait', nil, 0,0);