Set Up Users Components

 

Compatibilities: Required Xtras: Buddy API

This item has not yet been rated

This is a universal behavior to set the users machine before running the project. Place this on a frame script, preferable in your stub projector. Most items are self explanitory. The Path to the QT installer MUST be relative to the projector (as if you were using the applicationPath before thjis string.) Also, be sure to run the cleanupSystemSettings() script in the stopMovie handler or before you quit to put it all back.

property soundCard, screenSaver, doSoundVolume, soundVolume,  windowXtras, toolBar, onTop, qtCheck, qtVersion, qtPath, NoNT, windowTitle global systemSettings on getPropertyDescriptionList me   set p_list = [:]     addProp p_list, #screenSaver, [#format : #boolean, #default: TRUE, #comment : "Dissable screen savers?"]   addProp p_list, #soundCard, [#format : #symbol, #default: #IgnoreIt, #comment : "What to do if a Sound Card is not present: ", #range : [#IgnoreIt, #QuitNow, #AskUserIfQuit]]   addProp p_list, #doSoundVolume, [#format : #boolean, #default: TRUE, #comment : "Set the sound volume?"]   addProp p_list, #soundVolume, [#format : #integer, #default: 50, #comment : "Starting sound volume: ", #range : [#min : 0, #max : 100]]   addProp p_list, #windowXtras, [#format : #boolean, #default: TRUE, #comment : "Add window buttons?  (No effect if full screen)"]   addProp p_list, #toolBar, [#format : #boolean, #default: TRUE, #comment : "Hide taskbar?"]   addProp p_list, #onTop, [#format : #boolean, #default: TRUE, #comment : "Set Director window to stay on top?"]   addProp p_list, #qtCheck, [#format : #symbol, #default: #IgnoreIt, #comment : "What to do if QT is not min version?", #range : [#IgnoreIt, #QuitNow, #AskUserIfQuit, #AskToInstall]]   addProp p_list, #qtVersion, [#format : #integer, #default: 3, #comment : "Check for what version of Quick Time?"]   addProp p_list, #qtPath, [#format : #string, #default: "QTInstallerQt3.exe", #comment : "Path to QT installer relative to projector."]   addProp p_list, #NoNT, [#format : #symbol, #default: #IgnoreIt, #comment : "What to do if the user is running Windows NT (not 95/98)", #range : [#IgnoreIt, #QuitNow, #AskUserIfQuit]]   addProp p_list, #windowTitle, [#format : #string, #default: "", #comment : "Title for Director window (leave blank to keep the projector"s .exe name)"]   return p_list end on exitFrame me   systemSettings = [:]     --Screen Saver   if screenSaver = True then     oldSS = baDisableScreenSaver( true )         addProp systemSettings, #SS, oldSS   end if   --Sound Card   case soundCard of     #IgnoreIt

Upload Provided by ABCUpload ASP