🚀 go-pugleaf

  Delphiԭ�ǹ�ϣ��һ�����е�����,��ϣ��������Delphiλ������
������,Borland��˾�����俪������һ���Ӿ���������Delphi��Ϊͬ
���Ʒ�е����������,����DelphiΪ������
    Delphi�Ǵ�Դ������Ƶ���Ʒ��ѻ�һ��dzɵĿ������������
��,��ศ��߿��԰�������������ɳ������ƹ�����Delphi
�ij���,����ؼ���Windows������ơ�������������Delphi������
һ������ǿ���Windows 3.x/95�µĶ�ý�岥������
    ��Delphi���ṩ�˹������ƵĶ�ý��֧�ֹ��ߡ�����MediaPlaye
r���,Ϊ�����ṩ�˶�ý����ƽ���(MCI������MediaPlayer Contro
l Interface)����������ʹ��Windows  3.x/95�а�װ��ɵ�M
CI�����,������ͨ��MediaPlayer��������в��š�����֧�ֲ���
����CD��wav��mid�����ļ�;avi��dat��mpg�ȸ�ʽ����Ƶ�ļ�������
��ý���ļ�,�����˲���������������:

    �������Ž���
    ����Delphi���ɻ���������Զ������ΪForm1�ĵ���Ļ����,
����ֻ��ı����С���߿����Ժͼ���һЩ���������������Ҫ��
    ����,��Component Palette(���ȡ����)��System��ҳ��ѡȡMe
diaPlayer���,����Ϊ�������IJ��ż�;��Standard��ҳ��ѡȡ��
��Button���(�ֱ�ΪBut-ton1��Button2��Bu tton3��Button4),��
����Ϊ���������ⲿ����̨;��Dialog��ҳ��ѡȡOpenDialog�����
��Form1��(ͨ����,����������ȡ�ñ����ŵ��ļ�),������꽫����
�ϵ�ǡ��λ��(��ͼ1��ʾ)��
    Ȼ����Object Inspector(���������)�н�Form1��Caption����
��ΪMy_MediaPlayer, ��BorderIcons�е�biMaximize���False����
�ĸ������Caption���Էֱ��Ϊ��&File������C&lose������CD Aud
io������E&xit�����ƳɵĽ�����ͼ2��ʾ;˫��Object Inspector��O
penDialog1��Filter�����ұߵ�С��,�ڵ����ı���������ý����
�����ͼ�������,��ͼ3��ʾ������,���������Ž���������ɡ�
    �����¼��������

    1���ļ����¼�����
    ˫��File��ť,�ڵ����ij������������������:
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    OpenDialog1.Execute;
    MediaPlayer1.DeviceType:=dtAutoSelect;
    MediaPlayer1.FileName:=OpenDialog1.FileName;
    if MediaPlayer1.FileName <>' '
       then MediaPlayer1.open;
    end;

    2���ļ��ر��¼�����
    ˫��File��ť,�ڵ����ij������������������:
    procedure TForm1.Button2Click(Sender: TObject);
    begin
        MediaPlayer1.FileName:='';
        MediaPlayer1.close;
    end;

    3��CD Audio�����¼�����
    �����ڲ�������CDʱ,Ҫ��MediaPlayer��FileNameΪ��
    �������¼��������Ϊ:
    procedure TForm1.Button3Click(Sender: TObject);
    begin
        MediaPlayer1.DeviceType:=dtCDAudio;
        MediaPlayer1.FileName:='';
        MediaPlayer1.open;
    end;

    4���˳��¼��������
    procedure TForm1.Button4Click(Sender: TObject);
    begin
       close;
    end;
    ����,ý�岥����������ɡ�������ɵĿ�ִ���ļ��������ǵ�
ý�岥����(�ɰ�F9ֱ��ִ�иó���),��Windows����������,��File
��ť���벥���ļ�,����������������Ķ�ý���ˡ�

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]