1   
2   unit Unit1;
3   
4   interface
5   
6   uses
7     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
8     Dialogs, StdCtrls,MMSystem;
9   
10  type
11    TForm1 = class(TForm)
12      Button1: TButton;
13      Button2: TButton;
14      procedure Button1Click(Sender: TObject);
15      procedure Button2Click(Sender: TObject);
16    private
17      { Private declarations }
18    public
19      { Public declarations }
20    end;
21  
22  var
23    Form1: TForm1;
24  
25  implementation
26  
27  {$R *.dfm}
28  
29  procedure TForm1.Button1Click(Sender: TObject);
30  begin
31  // open the CD tray 
32    mciSendString('Set cdaudio door open wait', nil, 0, 0);
33  
34  end;
35  
36  procedure TForm1.Button2Click(Sender: TObject);
37  begin
38   // close the CD tray 
39    mciSendString('Set cdaudio door closed wait', nil, 0, 0);
40  end;
41  
42  end.