Detect and install quick time with lingo

Question

When I import a quick time movie into Director presentation - it needs QuickTime to be installed on every computer to run properly
Is there any setting which may make these kind of movies run on any computer without QuickTime?
Is there a Lingo script which may solve it?
Otherwise is there any Lingo code to check for the presence of QuickTime and then react accordingly if the user doesn't have it installed ? (probably display a screen that offers to install QuickTime or quit the movie)
any idea?
Thanks a lot in advance.
sof

Answer 1

Is there any setting which may make these kind of movies run on any computer without QuickTime?
No - if you want to display QuickTime movies (or use #quickTimeMedia members in Director) the playback machine must have QuickTime installed on it.
Otherwise is there any Lingo code to check for the presence of QuickTime and then react accordingly if the user doesn't have it installed ?
There is the QuickTimeVersion() command (which you would have discovered if you had checked the Help file):
on prepareMovie
  if QuickTimeVersion() < 7.0 then
    _player.alert("You need to install QuickTime - please re-start this program when the installer finishes")
    -- assuming the installer is in the same folder as the current movie/projector
    _player.open(_movie.path & "QuickTimeInstaller.exe")
    _player.quit()
  end if
end