home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / tsuhr100.zip / INSTALL.CMD next >
OS/2 REXX Batch file  |  2000-03-16  |  2KB  |  77 lines
  1. /* Installationsprozedur für TS Uhr */
  2.  
  3. /* Funktionen laden                                      */
  4. call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
  5. call SysLoadFuncs
  6.  
  7.  
  8. /* Abfrage Instalation JA/NEIN */
  9. say 'Zur Installation muß sich das Installationsprogramm'
  10. say 'Mit den Programmdateien in dem Verzeichniss befinden'
  11. say 'von dem es später gestartet werden soll'
  12. say 'Zum starten der Instalation Antworten Sie mit "JA"'
  13. parse upper pull Antwort
  14. if Antwort \= 'JA' then EXIT
  15.  
  16. /* Read me - Datei anzeigen */
  17. '@epm.exe Read.me'
  18. say ''
  19. say 'Wenn Sie mit den Bedingungen Einverstanden sind'
  20. say 'Antworten Sie mit "JA"'
  21. parse upper pull Antwort
  22. if Antwort \= 'JA' then EXIT
  23.  
  24. /* Installationsverzeichnis ermitteln */
  25. InstPfad = Directory()
  26.  
  27. /* Programmobjekte auf der Arbeitsoberfläche */
  28. If SysCreateObject('WPFOLDER', 'TS - Uhr',,
  29.                    '<WP_DESKTOP>',,
  30.                    'OBJECTID=<TSUhr-Ordner>',,
  31.                    'U') = 0 then do
  32.   say 'Programmordner konnte nicht erstellt werden'
  33.   say 'Bitte bestätigen Sie mit [Return]'
  34.   pull Dummy
  35.   EXIT
  36. end /* do */
  37.  
  38. If SysCreateObject('WPProgram', 'TS - Uhr',,
  39.                    '<TSUhr-Ordner>',,
  40.                    'OBJECTID=<TSUhr-Prog>;' ||,
  41.                    'EXENAME=' || InstPfad || '\TS_Uhr.exe;',,
  42.                    'U') = 0 then do
  43.   say 'Programmobjekt konnte nicht erstellt werden'
  44.   say 'Bitte bestätigen Sie mit [Return]'
  45.   pull Dummy
  46.   EXIT
  47. end /* do */
  48.  
  49. /* Programmopjekt in Startupordner JA/NEIN */
  50. say ''
  51. say 'Wenn die TS Uhr beim Systemstart automatisch gestartet'
  52. say 'werden soll Antworten Sie bitte mit "JA"'
  53. parse upper pull Antwort
  54. if Antwort = 'JA' then do
  55.   If SysCreateShadow('<TSUhr-Prog>','<WP_START>') = 0 then do
  56.     say 'Programmobjekt konnte nicht im Systemstart erstellt werden'
  57.     say 'Bitte bestätigen Sie mit [Return]'
  58.     pull Dummy
  59.   end /* do */
  60. end /* do */
  61.  
  62. If SysCreateObject('WPProgram', 'Read.me',,
  63.                    '<TSUhr-Ordner>',,
  64.                    'OBJECTID=<TSUhr-Readme>;' ||,
  65.                    'EXENAME=epm.exe;' ||,
  66.                    'PARAMETERS="' || InstPfad || '\Read.me";',,
  67.                    'U') = 0 then do
  68.   say 'Programmobjekt konnte nicht erstellt werden'
  69.   say 'Bitte bestätigen Sie mit [Return]'
  70.   pull Dummy
  71.   EXIT
  72. end /* do */
  73.  
  74.  
  75.  
  76.  
  77.