监测光驱是否就绪

function CDROMReady(DRV:char):boolean; var
i:dword;
buf:array[0..MAX_PATH] of char;
pdWORD;
begin
pd:=0;
GetVolumeInformation(DRV+':/',buf,i,@pd,i,i,buf,i);
result:=pd<>0;
end;