home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 v2.4 Fix / W95-v2.4fix.iso / COREL6 / SCRIPTS / DLL.CSC < prev    next >
Encoding:
Text File  |  1995-08-12  |  643 b   |  23 lines
  1. REM Launches the calculator with Windows DLLs
  2. REM Dll.csc July 21, 1995
  3. DECLARE FUNCTION FindWindow LIB "user32" (BYVAL classname AS LONG, BYVAL title AS STRING) AS LONG ALIAS "FindWindowA"
  4. DECLARE FUNCTION WinExec LIB "kernel32" (BYVAL path AS STRING, BYVAL shw AS LONG) AS LONG ALIAS "WinExec"
  5.  
  6. window$ = "Calculator"
  7. exeName$ = "CALC.EXE"
  8. errmsg$ = "Couldn't run Calculator."
  9.  
  10. REM Load the application if not loaded already
  11. win = FindWindow(0, window$)
  12. IF win = 0 THEN
  13.     err = WinExec(exeName$, 1)
  14.     IF err < 0 THEN err = err * -1
  15.     IF err < 33 THEN
  16.         MESSAGE(errmsg$)
  17.         STOP
  18.     ENDIF
  19.     win = FindWindow(0, window$)
  20. ENDIF
  21.  
  22.  
  23.