嗨,我正在制作一个程序来打开和关闭我想将数据写入 CD 的 cd 阅读器,问题是问题的基础,它使用“使用 Windows '和'使用 MMSystem”,但问题是当我同时使用两者,“使用 Windows,MMSystem”给出错误并且程序无法编译,我使用的是 Delphi 2010,奇怪的是,当我只使用一个 Windows 或 MMSystem 时,可以正常工作并编译。
我尝试编译时的错误是:'找不到程序'
有问题的代码是这样的:
mciSendString ('Set cdaudio door open wait', nil, 0, handle);
我有两件事要问你首先是我如何避免在使用这两个(Windows 和 MMSystem)时出现错误,另一个问题是他是否可以在不使用 MMSystem 的情况下打开 CD 播放器,使用 Windows API 的骨骼,但不知道从哪里开始
来源 :
方案项目1;
{$APPTYPE CONSOLE}
uses
SysUtils,Windows,MMSystem;
procedure opencd;
begin
mciSendString('Set cdaudio door open wait', nil, 0, 0);
end;
begin
try
Writeln('test');
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
图片 :