>lnResult =Shellexecute(0, tcCommand, tcFileName, tcParameter,tcDirectory,tnShowCommand) > >IF lnResult < 32 > DO CASE > CASE lnResult=2 > cErrorMessage = "Invalid association or URL." > CASE lnResult=31 > cErrorMessage = "No association." > CASE lnResult=29 > cErrorMessage = "Can't start application." > CASE lnResult=30 > cErrorMessage = "Application already open." > OTHERWISE > cErrorMessage = "No error information" > ENDCASE >ENDIF >>