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