carmelo

CD-ROM sürücümde müzik CD'si var mı? CD-ROM sürücümde müzik CD'si var mı?
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:

function IsAudioCD(Drive : char) : bool;
var
DrivePath : string;
MaximumComponentLength : DWORD;
FileSystemFlags : DWORD;
VolumeName : string;
begin
Result := false;
DrivePath := Drive + ':';
if GetDriveType(PChar(DrivePath)) <> DRIVE_CDROM then exit;
SetLength(VolumeName 64);
GetVolumeInformation(PChar(DrivePath)
PChar(VolumeName)
Length(VolumeName)
nil
MaximumComponentLength
FileSystemFlags
nil
0);
if lStrCmp(PChar(VolumeName)'Audio CD') = 0 then result := true;
end;

function PlayAudioCD(Drive : char) : bool;
var
mp : TMediaPlayer;
begin
result := 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;
mp.Open;
Application.ProcessMessages;
mp.Play;
Application.ProcessMessages;
mp.Close;
Application.ProcessMessages;
mp.free;
result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not PlayAudioCD('D') then
ShowMessage('Not an Audio CD');
end;