unit1.pas

Delphi6编程大师_多媒体

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MMSystem, MPlayer, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  mp : TMediaPlayer;
  msp : TMCI_INFO_PARMS;
  MediaString : array[0..255] of char;
  ret : longint;
begin
  mp := TMediaPlayer.Create(nil);
  mp.Visible := false;
  mp.Parent := Application.MainForm;
  mp.Shareable := true;
  mp.DeviceType := dtCDAudio;
  mp.Open;
  Application.ProcessMessages;
  FillChar(MediaString, sizeof(MediaString), #0);
  FillChar(msp, sizeof(msp), #0);
  msp.lpstrReturn := @MediaString;
  msp.dwRetSize := 255;
  ret := mciSendCommand(Mp.DeviceId,
                        MCI_INFO,
                        MCI_INFO_MEDIA_IDENTITY,
                        longint(@msp));
  if Ret <> 0 then
  begin
    MciGetErrorString(ret, @MediaString, sizeof(MediaString));
    Memo1.Lines.Add(StrPas(MediaString));
  end
  else
  begin
    Memo1.Lines.Add('序列号：'+StrPas(MediaString));
    FillChar(MediaString, sizeof(MediaString), #0);    
    mciSendCommand(Mp.DeviceId,
                   MCI_INFO,
                   MCI_INFO_PRODUCT,
                   longint(@msp));
    Memo1.Lines.Add('产品信息：'+StrPas(MediaString));
    FillChar(MediaString, sizeof(MediaString), #0);
    mciSendCommand(Mp.DeviceId,
                   MCI_INFO,
                   MCI_INFO_FILE,
                   longint(@msp));
    Memo1.Lines.Add('文件信息：'+StrPas(MediaString));
    FillChar(MediaString, sizeof(MediaString), #0);
    mciSendCommand(Mp.DeviceId,
                   MCI_INFO,
                   MCI_INFO_MEDIA_UPC,
                   longint(@msp));
    Memo1.Lines.Add('UPC：'+StrPas(MediaString));
    FillChar(MediaString, sizeof(MediaString), #0);
    mciSendCommand(Mp.DeviceId,
                   MCI_INFO,
                   MCI_INFO_NAME,
                   longint(@msp));
    Memo1.Lines.Add('名称：'+StrPas(MediaString));
    FillChar(MediaString, sizeof(MediaString), #0);
    mciSendCommand(Mp.DeviceId,
                   MCI_INFO,
                   MCI_INFO_COPYRIGHT,
                   longint(@msp));
    Memo1.Lines.Add('版权：'+StrPas(MediaString));
  end;
  mp.Close;
  Application.ProcessMessages;
  mp.free;
end;

end.