Советы по Delphi


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


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

    const
MCI_INFO_PRODUCT              = $00000100; MCI_INFO_FILE&nbsp                = $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). [000037]




Начало    Вперед



Книжный магазин