如何检测光驱内是否有光盘?急用!请各位大侠帮忙!!!

[JYYF21]

如何检测光驱内是否有光盘?如何浏览光盘?请各位大侠帮忙!!!

[Linux2001]

读取光驱的卷标

[soundbug]

有没有这种可能，就是光驱没卷标？
如果有这种可能，我觉得应该在读光盘那里用try语句，在except里showmessage('无光盘');

[prometheusphinx]

读注册表
HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\CDROM

[lovedata]

判断驱动器是否准备好，如软盘，光驱的函数
function IsDiskReady(Drive: char): boolean;
var
d1, d2, d3, d4: longword;
DrivePath: array [0..3] of char;
begin
DrivePath := ' :\';
DrivePath[0] := Drive;
Result := GetDiskFreeSpace(DrivePath, d1, d2, d3, d4);
end;

调用例子：

if not IsDiskReady('A') then
ShowMessage('驱动器 A: 未准备好')
else showmessage('驱动器 A: 准备好');

弹出或关闭cd-rom 函数（要加入 MMSystem 单元）

procduere Eject(YesOrNo: Boolean);
begin
if YesOrNo then
mciSendstring('SET CDAUDIO DOOR OPEN WAIT',nil,0, Handle)
else mciSendstring('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Handle);
end;

[seekuface]

同上意见

[JYYF21]

如何浏览光盘内容呢？

[horlen]

那你打开光盘就知道它的内容了

[Linux2001]

浏览内容很简单啦，就像读取驱动器内容一样啦！我说读取卷标有可能有光盘没有卷标（不过只要是正版的都有卷标），那你可以读取驱动器的已用空间，如果大于0，那么这个光驱里就有光盘，就算是空白光盘，没有内容，你浏览也没有意思，所以不考虑空白光盘