Skub CD-drev ud ved hjælp af en knap.

tilføj mmsystem i uses


procedure TForm1.openCdClick(Sender: TObject);
begin
mciSendString
('Set cdaudio door open wait', nil, 0, handle);
end;

procedure TForm1.closeCDClick(Sender: TObject);
begin
mciSendString
('Set cdaudio door closed wait', nil, 0, handle);
end;

Stoney