Hello Carl,
the following script works (moviescript). You?ll need BuddyAPI for this. (My
mail program will fudge the line break.)
on qtInstallation
--messages: "QT needed to start application, install now?" and "qt needed"
set choice = baMsgBox( "QuickTime wird benotigt, um diese Anwendung zu
starten. Wollen Sie Quicktime jetzt installieren?", "QuickTime wird
benotigt", "YesNo", "Question", 1 )
put choice
if choice = "Yes" then
set code = baRunProgram( the pathname &"QuickTimeInstaller",
"maximised", true )
-- nur wenn barunProgram ordnungsgema? ausgefuhrt wird, wird der WErt 32
--zuruckgegeben (only when baRunProgram is done correctly, 32 is
returned).
if code < 32 then
alert "Ein Fehler ist aufgetreten. Die automatische QuickTime
Installation wird beendet. Bitte versuchen Sie es manuell"--error occrured,
qt-installation will finish. try --manually
quit
end if
else
alert "QuickTime wird benotigt, um diese Anwendung zu starten. Da Sie
dies nun nicht tun wollen, beendet sich das Programm jetzt!"--qt needed. U
dont want to? programm will finish
quit
end if
end qtInstallation
on startmovie
qtNeeded = 4 -- hier definierst Du welche QT-Version noetig ist, which
version necess.
set qt = integer(quickTimeVersion()) -- welche Version ist installiert?
put qt
if qt = 0 then
alert "Quicktime ist nicht installiert!"--qt not installed
qtInstallation -- Na dann aber! lets do it
else
if qt < qtNeeded then -- einfach druberinstallieren
alert "Es ist eine zu alte Version von QuickTime
installiert"--installed qt too old
qtInstallation
else
alert "Hipp hipp, alles ist super alles ist wunderbar."--hooray.
everythings fine!
end if
end if
end startmovie
HTH
Oliver
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/LUJ/lingo-l.cgi To post messages to the list,
email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED])
Lingo-L is for learning and helping with programming Lingo. Thanks!]
