光驱控制函数问题

hackergirl 发布于 2008-04-25 01:05， 1098 次点击

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 换成别的.一切正常,请问这是怎么回事?

4 回复

hackergirl2008-04-25 13:49

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

makebest2008-04-27 21:43

你的问题跟DELPHI的确关系不大，把最后的参数换掉试试
mciSendString('Set cdaudio door open wait', nil, 0, nil);

hackergirl2008-04-29 22:11

楼上的代码还是不行.

hackergirl2008-04-29 22:15

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

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