RE: Working with CdPlayer??

Article View: alt.comp.borland-delphi

Article #650

Back to alt.comp.borland-delphi Previous Next

#650

From: Coleta
Date: Thu, 20 Jul 2000 00:00

34 lines
1682 bytes

Thank for your answer, Nicolay.

 I try your code but my Delphi don�t know 'MciSendCommand' and 'MCI_SET'.
I Use Delphi 3. Should I use any unit in my clauses USES?

    What can I do??, I�m very Interesting. Thank for your time and please,
excuse my English.


    Salu2 d Coleta.




> procedure CloseCD(Drive : char);
> var
>   mp : TMediaPlayer;
> begin
>   Application.ProcessMessages;
>   mp := TMediaPlayer.Create(nil);
>   mp.Visible := false;
>   mp.Parent := Application.MainForm;
>   mp.Shareable := true;
>   mp.DeviceType := dtCDAudio;
>   mp.FileName := Drive + ':';
>   mp.Open;
>   Application.ProcessMessages;
>   mciSendCommand(mp.DeviceID,
>   MCI_SET, MCI_SET_DOOR_CLOSED, 0);
>   Application.ProcessMessages;
>   mp.Close;
>   mp.free;
> end;

Technical Details

Message-ID: <8l7cr4$q1n$1@talia.mad.ttd.net>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References: <8klfdg$m1p$1@talia.mad.ttd.net> <8kn7nk$csa$1@skynet.kharkov.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 1091e5,5bf3f85c4ccebb2f
X-Google-Attributes: gid1091e5,public
X-Google-Thread: 105ac8,5bf3f85c4ccebb2f
X-Google-Attributes: gid105ac8,public
X-Google-Thread: 10545b,5bf3f85c4ccebb2f
X-Google-Attributes: gid10545b,public
X-Google-Thread: 109d99,5bf3f85c4ccebb2f
X-Google-Attributes: gid109d99,public
From: "Coleta" <AMENDEZRA@nexo.es>
Subject: RE: Working with CdPlayer??
Date: 2000/07/20
Message-ID: <8l7cr4$q1n$1@talia.mad.ttd.net>
X-Deja-AN: 648686807
References: <8klfdg$m1p$1@talia.mad.ttd.net> <8kn7nk$csa$1@skynet.kharkov.com>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2314.1300
Organization: Telefonica Transmision de Datos
X-MSMail-Priority: Normal
Newsgroups: alt.comp.borland-delphi,borland.public.delphi.ide,borland.public.delphi.winapi,comp.lang.pascal.delphi.components.misc

Reply to Parent Message