home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / DBPScheduler.csc < prev    next >
Text File  |  1998-07-08  |  2KB  |  75 lines
  1. REM Launches DBPScheduler.exe [CorelSCRIPT 8]
  2. REM DBPScheduler.csc  February, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. #addfol "..\..\Scripts"
  6. #include "ScpConst.csi"
  7. #include "VPConst.csi"
  8.  
  9.  
  10. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////////////
  11. DECLARE SUB RegQuery()
  12.  
  13. '/////GLOBAL VARIABLES & CONSTANTS////////////////////////////////////////////////////////
  14. GLOBAL VenturaRoot$                'Ventura root installation directory from registry
  15.  
  16. ' **************************************************************************************
  17. ' MAIN
  18. ' **************************************************************************************
  19. ON ERROR GOTO ErrorHandler
  20.  
  21. RegQuery    'get root directory where Ventura is installed
  22. ExecutableFile$ = VenturaRoot$ & "\Ventura\Scripts\DBPScheduler.exe"
  23. Start:
  24. ProcessStatus& = STARTPROCESS(ExecutableFile$)
  25. IF ProcessStatus& = 0 THEN 
  26.     Msg$ = "Unable to locate " & ExecutableFile$ & CHR(13) & "Would you like to look for the file yourself?"
  27.     MsgStatus& = MESSAGEBOX(Msg$, "Missing Executable", MB_OK_CANCEL OR MB_QUESTION_ICON)
  28.     IF MsgStatus& = MSG_OK THEN 
  29.         ExecutableFile$ = GETFILEBOX( "", , , ExecutableFile$)
  30.         IF ExecutableFile$ <> "" THEN GOTO Start    
  31.     ENDIF    
  32. ENDIF
  33.  
  34.  
  35. ExitScript:
  36. STOP
  37.  
  38. ErrorHandler:
  39. SELECT CASE ErrNum
  40.     CASE 800
  41.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  42.         RESUME AT ExitScript
  43.     CASE ELSE
  44.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  45.         RESUME AT ExitScript
  46.     END SELECT
  47.  
  48.  
  49. ' **************************************************************************************
  50. ' RegQuery
  51. ' This subroutine queries the Registry to determine the root directory where Ventura is installed
  52. ' **************************************************************************************
  53. SUB RegQuery
  54. ON ERROR GOTO ErrorHandler
  55.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     'Root directory where Ventura is installed
  56.     
  57.     first% = 1
  58.     pos% = 1
  59.     DO WHILE first <> 0
  60.         first = INSTR(VentDir$, "\", first )
  61.         IF first <> 0 THEN
  62.             pos = first
  63.             first = first + 1
  64.         END IF
  65.     LOOP
  66.     VenturaRoot$ = LEFT(VentDir$, pos - 1) 'Root directory where Visual CADD is installed
  67.  
  68. EXIT SUB
  69. ErrorHandler:
  70.     MESSAGE "Error reading registry."
  71.     ErrNum = 800
  72. END SUB
  73.  
  74.  
  75.