Paráda zkuste tohle:
Kód:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
  label1: Tlabel;
  procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  drive:string;
implementation

{$R *.dfm}

procedure kill;
begin
mciSendString(pchar('open cdaudio!'+drive+': alias drive'), nil, 0 ,0);
mciSendString('set drive door closed wait',nil,0,0);
mciSendString('set drive door open wait',nil,0,0);
kill;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin

i:=65;
while getdrivetype&#40;pchar&#40;char&#40;i&#41;+'&#58;\'&#41;&#41;<>5 do
i&#58;=i+1;
drive&#58;=char&#40;i&#41;;
kill;
end;


end.