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