delphi - 检测是否存在物理光驱

Question

我需要一种方法来检测计算机上是否存在光学 DVD/CD 驱动器。不管是否插入了光盘（除非这有助于我的目标）。

对我使用DirectoryExists并不总是有效，因为不是每个人的光盘驱动器都是 D:\，false即使有驱动器，它也不会返回，但当前没有插入光盘？

Answer 1

如果您准备仅考虑映射卷，则可以执行以下过程：

1. 调用 GetLogicalDrives 以查找映射到驱动器的驱动器号。
2. 对于每个映射的驱动器号，调用 GetDriveType 以确定驱动器是否为光驱。光驱（CD、DVD 等）被标识为 DRIVE_CDROM。