Hi list...
Does anyone use the CDPRO xtra? I have a routine that finds the correct
drive and ejects the disc, but after doing this, if you display My
Computer, the icon for that disc persists, even though it's ejected. It
won't change upon refreshing, and it will only change if you put in
another disc in that drive. Anyone experience this problem? Below is
my code.
Thanks,
- Michael M.
on mQuit()
-- decide to eject the disk...
if _player.runmode = "Projector" then
-- figure out all the available hard drives
theDrives = baDiskList()
theHardDrives = []
-- build a list of hard drives...
repeat with i = 1 to theDrives.count
theLetter = theDrives[i].char[1]
theType = baDiskInfo(theLetter, "type")
if theType = "Hard" then
theHardDrives.add(theLetter)
end if
end repeat
theProjectorLetter = (_movie.path).char[1]
theShouldEject = theHardDrives.getOne(theProjectorLetter) -- is the
projector letter a hard drive, 0 if it's not
if (theShouldEject = 0) then
-- figure if the movie is on (one of) the CD drive(s)
theOnDisc = baDiskInfo(theProjectorLetter, "type")
if (theOnDisc = "CD-ROM") then -- not on hard drive, is it in a CD
drive?
theDrives = pData.pXtras.pCD.getCDdrive() -- figures how many
external drives, if 2+, returns list
if listP(theDrives) then
-- more than one CD drive is available, determine which one to
eject
repeat with i = 1 to theDrives.count
if theDrives[i].char[1] = theProjectorLetter then
pData.pXtras.pCD.selectDrive(i)
exit repeat
end if
end repeat
end if
pData.pXtras.pCD.eject() -- make sure to eject correct door!
end if
end if
clearglobals
quit
else -- author
clearglobals
halt
end if
end
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/lingo-l.cgi To post messages to the list, email
lingo-l@penworks.com (Problems, email [EMAIL PROTECTED]). Lingo-L is for
learning and helping with programming Lingo. Thanks!]
