Получение идентификатора диска

Как получить идентификатор находящегося в CD-ROM'е аудио-компакта?

const

 MCI_INFO_PRODUCT              = $00000100;

 MCI_INFO_FILE                 = $00000200;

 MCI_INFO_MEDIA_UPC            = $00000400;

 MCI_INFO_MEDIA_IDENTITY       = $00000800;

 MCI_INFO_NAME                 = $00001000;

 MCI_INFO_COPYRIGHT            = $00002000;

{ блок параметров для командного сообщения MCI_INFO }

type

 PMCI_Info_ParmsA = ^TMCI_Info_ParmsA;

 PMCI_Info_ParmsW = ^TMCI_Info_ParmsW;

 PMCI_Info_Parms  = PMCI_Info_ParmsA;

 TMCI_Info_ParmsA = record

  dwCallback: DWORD;

  lpstrReturn: PAnsiChar;

  dwRetSize: DWORD;

 end;

 TMCI_Info_ParmsW = record

  dwCallback: DWORD;

  lpstrReturn: PWideChar;

  dwRetSize: DWORD;

 end;

 TMCI_Info_Parms = TMCI_Info_ParmsA;

Идентификатор возвращается функцией MCI_INFO_MEDIA_IDENTITY в виде строки с десятичным числом. Для получения дополнительной информации обратитесь к электронной справке (Win32 и компонент TMediaPlayer).