Mega Code Archive

 

Categories / Delphi / System

 

Cd-rom kapaginin kapatilmasi

TmediaPlayer, bir CD-ROM'a komuta ediyorsa, Eject tusuna basildiginda,, CD-ROM kapagini acabilir. Fakat tekrar Eject tusuna basildiginda acik durumdaki kapagi kapatamaz. Bu nedenle bir adet kapat butonu kullanilmalidir. Asagidaki kod örneginde, baska bir buton kullanilarak kapagin kapatilmasi gösterilmektedrir. procedure TForm1.Button1Click(Sender: TObject); begin if MediaPlayer1.Mode = mpOpen then begin mciSendCommand(MediaPlayer1.DeviceID, MCI_SET,MCI_SET_DOOR_CLOSED,0); Button1.Caption := '&Open' end else begin mciSendCommand(MediaPlayer1.DeviceID ,MCI_SET,MCI_SET_DOOR_OPEN,0); Button1.Caption := '&Close'; end; end; Genel olarak bu islemin yapilmasi icin ise Mmsystem uniti kullanilarak, asagidaki fonksiyonlar kullanilabilir. CD-ROM Kapagini acmak icin; mciSendString('Set cdaudio door open wait', nil, 0, handle); CD-ROM Kapagini kapatmak icin; mciSendString('Set cdaudio door closed wait', nil, 0, handle);