Função: Verifica se a Unidade e de CD ROM - Códigos Delphi

Código Delphi

// Função: Verifica se é Unidade de CD ROM.

// Verifica se a Unidade Especificada é um CD-Rom.

Código

function IsDriveCD(Drive : char) : longbool;
var
DrivePath : string;
TipDrive : Integer;
begin
DrivePath := Drive + ':\';
TipDrive := GetDriveType(PChar(DrivePath));
if TipDrive = 5 then
begin
Result := True;
end
else
begin
Result := False;
end;
end;