DELPHI 7 使用光驱

来源：百度知道 编辑：UC知道 时间：2024/05/12 16:54:14
假如我现在要做一个光驱的弹出和关闭,一般是在USES中引用mmsystem单元,但我引用时,提示已经全部引用了(我是用的FILE--USE UNIT),该怎么解决?我用的DELPHI7平台.

我不大清楚你所说的问题，但我这里的D7下调试是通过的。下面给你一个完整的代码吧，窗体上只须放两个按钮就可以了，一个弹出，一个关闭，你全部复制过去看看，如果不行，就是你的D7问题了：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, mmsystem;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
mcisendstring('set cdaudio door open',nil,0,handle)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mcisendstring('set cdaudio door closed',nil,0,handle)
end;

end.