CD-ROM sürücümde müzik CD'si var mı?(Delphi Kod Örneği)

[By_FUCKan]

CD-ROM sürücümde müzik CD'si var mı?
Bunun için Windows API fonksiyou GetDriveType()'ı kullanabilirsiniz.
Ardından, yine Windows API fonksiyonu olan GetVolumeInformation()'ı da
'Audio CD' 'nin müzik cd si olup olmadığını anlamak için kullanabilirsiniz.

Örnek:


Kod:
function IsAudioCD(Drive : char) : bool;varDrivePath : string;MaximumComponentLength : DWORD;FileSystemFlags : DWORD;VolumeName : string;beginResult := false;DrivePath := Drive + ':';if GetDriveType(PChar(DrivePath)) <> DRIVE_CDROM then exit;SetLength(VolumeName, 64);GetVolumeInformation(PChar(DrivePath),PChar(Vo lumeName),Length(VolumeName),nil,MaximumComponentL ength,FileSystemFlags,nil,0);if lStrCmp(PChar(VolumeName),'Audio CD') = 0 then result := true;end;function PlayAudioCD(Drive : char) : bool;varmp : TMediaPlayer;beginresult := false;Application.ProcessMessages;if not IsAudioCD(Drive) then exit;mp := TMediaPlayer.Create(nil);mp.Visible := false;mp.Parent := Application.MainForm;mp.Shareable := true;mp.DeviceType := dtCDAudio;mp.FileName := Drive + ':';mp.Shareable := true;