home *** CD-ROM | disk | FTP | other *** search
/ Questo 1: Top Shareware / QUESTO1.bin / proga14 / inst-nrw.cmd < prev    next >
OS/2 REXX Batch file  |  1995-03-13  |  1KB  |  36 lines
  1. /*
  2. @goto keinREXX
  3. */
  4.  
  5. /* REXX-Script um für das NRW-SPD-Computerspiel ein Objekt auf der   */
  6. /* OS/2 WPS zu erzeugen  V0.3 - Felix Danckwerts                     */
  7.  
  8. Cls
  9. Say "Es wird ein Objekt für NRWSPD auf der WPS erstellt. Bitte warten ..."
  10.  
  11. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  12. Call SysLoadFuncs
  13.  
  14. InstallDir=Directory()"\"
  15.  
  16. /* The Programs in the folder */
  17. ObjModus="update"
  18. Klasse = "WPProgram"
  19. Ort = "<WP_DESKTOP>"
  20.  
  21. Titel = "Leas Reise durch die Zeit"
  22. SetupString ="OBJECTID=<NRWSPDEXE>;ICONFILE="InstallDir"NRWSPD.ICO;PROGTYPE=VDM;EXENAME="InstallDir"NRWSPD.EXE;STARTUPDIR="InstallDir";SET VIDEO_RETRACE_EMULATION=0;SET AUDIO_ADAPTER_SHARING=REQUIRED;SET XMS_MEMORY_LIMIT=1024;SET INT_DURING_IO=1;SET DOS_BACKGROUND_EXECUTION=0"
  23. Ergebnis=SysCreateObject(Klasse,Titel,Ort,SetupString,ObjModus)
  24.  
  25. Say
  26. if Ergebnis=1
  27.   Then Say "NRWSPD-Objekt auf der WPS erstellt!"
  28.   Else Say "Fehler bei der Erstellung des Objekts aufgetreten!"
  29. Exit;
  30.  
  31. :keinREXX
  32. echo off
  33. echo In Ihrem System ist kein REXX installiert, es kann deswegen auch
  34. echo kein Objekt auf der WPS angelegt werden. Installieren Sie REXX und
  35. echo starten Sie dieses REXX-Script erneut.
  36.