lcFileName = FULLPATH("SlumDogMillionaire.avi") RunApp(lcFileName)>
>FUNCTION RunApp(tcDocument) > > LOCAL lnResult > DECLARE INTEGER ShellExecute ; > IN SHELL32.dll ; > INTEGER nWinHandle, ; > STRING cOperation, ; > STRING cFileName, ; > STRING cParameters, ; > STRING cDirectory, ; > INTEGER nShowWindow > > > DECLARE INTEGER FindWindow ; > IN WIN32API ; > STRING cNull, ; > STRING cWinName > > lnResult = ShellExecute(FindWindow( 0, "Opening..."), "Open", tcDocument, "", gcFilmPath, 1) > > IF lnResult < 32 > DO CASE > CASE lnResult=2 > Wait wind "Invalid association or URL." > CASE lnResult=31 > Wait wind "No association." > CASE lnResult=29 > Wait wind "Can't start application." > CASE lnResult=30 > Wait wind "Application already open." > ENDCASE > ENDIF >ENDFUNC >