请问怎么判断光驱里的光盘是音乐CD（音轨）还是数据光盘？

Question

应该有一个标识符我觉得，怎么判断呢？希望写过这方面程序的高手帮忙解答一下，谢谢！

Answer 1

Function AudioCD(Drive : Char) : Boolean;VarFSFlags, MaxLength: DWORD;VolName, Path : String;BeginPath := Drive + ':\';Result := FALSE;if (GetDriveType(PChar(Path)) = DRIVE_CDROM) thenBeginSetLength(VolName, 64);GetVolumeInformation(PChar(Path), PChar(VolName), Length(VolName), nil, MaxLength, FSFlags, nil,0);if (lStrCmp(PChar(VolName),'Audio CD') = 0) Then Result := TRUE;End;end;