Delphi-Help

Главная Статьи Аудио и видео плеер (MediaPlayer) Как узнать серийный номер аудио CD?

Как узнать серийный номер аудио CD?

Оцените материал
(0 голосов)

Как узнать серийный номер аудио CD?

CD может иметь или не иметь серийный номер и/или универсальный код продукта (Universal Product Code). MCI-расширение Windows предоставляет эту информации с помощью команды MCI_INFO_MEDIA_IDENTITY command. Эта команда возвращает уникальную ID-строку.

uses
  ..., MMSystem, MPlayer;
 
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.FileName := 'D:';
   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 ) );
      Caption := StrPas( MediaString );
   end
   else
      Caption := StrPas( MediaString );
   mp.Close;
   Application.ProcessMessages;
   mp.free;
end;

Авторизация



Счетчики