xtra LockCD -- v1.1
*lockCD string driveLetter
*unlockCD string driveLetter

-- locks a CD-Drive, so it can't be opened (e.g. by pressing on the drive's open button, 
-- or by choosing "eject" in the explorer context menu)

usage:
ok = lockCD("D")   -- 1=success, 0=failure
ok = unlockCD("D") -- 1=success, 0=failure



notice:
here some lingo code to open/close a CD-Drive without using any 3rd-pary xtra:

----------------------------------------
--
---------------------------------------- 
on openCD (driveLetter)
  mci("Open" && driveLetter && "Type cdaudio Alias cd")
  mci("set cd door open")
  mci("close cd")
end

----------------------------------------
--
---------------------------------------- 
on closeCD (driveLetter)
  mci("Open" && driveLetter && "Type cdaudio Alias cd")
  mci("set cd door closed")
  mci("close cd")
end