Re: Eject cd-player!Posted by Gyrman The Grym on December 28, 2001 at 10:00:24: In Reply to: Eject cd-player! posted by JiiPee on December 23, 2001 at 11:52:33: If you really want to do so you must place standart MediaPlayer component to your app, make it invisible and link your button with MediaPlayer's like this: procedure TForm1.Button1Click(Sender: TObject); begin Form1.MediaPlayer1.DeviceType := dtCDAudio; {to define the type of device, if not defined delphi raises an error} form1.MediaPlayer1.Open; form1.MediaPlayer1.Eject; form1.MediaPlayer1.close; end;
|
|