Mega Code Archive

 

Categories / Delphi / Multimedia

 

Is my CD a Audio CD

Title: Is my CD a Audio CD? Question: Is my CD a Audio CD? Answer: Create a function : Function AudioCD(Drive : Char) : Boolean; Var FSFlags, MaxLength: DWORD; VolName, Path : String; Begin Path := Drive + ':\'; Result := FALSE; if (GetDriveType(PChar(Path)) = DRIVE_CDROM) then Begin SetLength(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; Is usefull four you? I hope that...