Как различать звуковые CD
Материал из DRKB
Как различать звуковые CD[править | править код]
лазерный диск имеет свой идентификатор. Если сохранить, какому диску соответствует какой идентификатор, то можно реализовать определение диска.
В этой программе при нажатии на кнопку происходит проверка, есть ли название этого диска в файле. Если есть, то в заголовок окна выводится его название, если нет, то введенное пользователем название диска сохраняется в файл.
uses MMSystem, IniFiles;
function GetCDid: string;
var
InfoParams: TMCI_Info_Parms;
s: array [0..63] of char;
OpenParams: TMCI_Open_Parms;
CloseParams: TMCI_Generic_Parms;
begin
Result := '';
FillChar(InfoParams, sizeof(InfoParams), #0);
InfoParams.lpstrReturn := @s[0];
InfoParams.dwRetSize := 10;
OpenParams.dwCallback := 0;
OpenParams.lpstrDeviceType := 'CDAudio';
if mciSendCommand(0, mci_Open, mci_Open_Type,
Longint(addr(OpenParams))) <> 0 then Exit;
if mciSendCommand(OpenParams.wDeviceID, MCI_INFO,
MCI_INFO_MEDIA_IDENTITY, longint(@InfoParams)) = 0
then Result := s;
mciSendCommand(OpenParams.wDeviceID, mci_Close, 0,
Longint(addr(CloseParams)));
end;
procedure TForm1.Button1Click(Sender: TObject);
var
id: string;
ini: TIniFile;
name: string;
begin
id := GetCDid;
if id = '' then
begin
Form1.Caption := 'No disk';
Exit;
end;
ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'cd.ini');
name := ini.ReadString('CD', id, '');
if name = '' then begin
name := 'CD name';
if not InputQuery('CD name', 'Enter CD name:', name)
then Exit;
ini.WriteString('CD', id, name);
end;
Form1.Caption := name;
ini.Destroy;
end;
e-mail: delphi4all@narod.ru e-mail: aleksey@sch103.krasnoyarsk.su
Author: : Алексей Денисов
ID: 01406