home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / lfncall.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1997-09-26  |  10KB  |  283 lines
  1. /*
  2.  * LFNCall V 1.4
  3.  *
  4.  * Installationsprogramm mit Erzeugung der notwendigen Symbole
  5.  * (c) 1997 Thomas Bohn, Vogelwiese 65, D-18435 Stralsund, Germany
  6.  *
  7.  */
  8.  
  9. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. call SysLoadFuncs
  11.  
  12. '@Echo off'
  13. 'cls'
  14. say''
  15. say'     ┌───────────────────────────────────────────────────────────────────┐'
  16. say'     │                             LFNCall V 1.4                         │'
  17. say'     │                        (c) Thomas Bohn 1997                       │'
  18. say'     │             Installationsprogramm / install program               │'
  19. say'     └───────────────────────────────────────────────────────────────────┘'
  20. say''
  21.  
  22. say 'Bitte wählen Sie die Sprache. / Please select your language.'
  23. say ''
  24. say '(D)eutsch'
  25. say '(E)nglish'
  26. say ''
  27. pull Spr
  28. say ''
  29. if Spr="D" then do
  30.  say 'Die notwendigen Dateien werden in das WIN-OS/2-Verzeichnis kopiert.'
  31.  say 'Mit dem Deinstallationsprogramm "DEINSTAL.CMD" können sie falls nötig'
  32.  say 'wieder entfernt werden.'
  33.  say ''
  34.  say 'Start mit <Eingabe>...Abbruch mit "E" und <Eingabe>...'
  35. end
  36. if Spr="E" then do
  37.  say 'The nessesary files will be copied to the WIN-OS/2-Directory.'
  38.  say 'With "DEINSTAL.CMD" all files can be removed.'
  39.  say ''
  40.  say 'Start with <Enter>...Cancel with "C" and <Enter>...'
  41. end
  42. pull taste
  43. if taste="E" then exit
  44. if taste="C" then exit
  45.  
  46. tmppfad=value('TMP',,'OS2ENVIRONMENT')
  47. windir = SysIni( 'USER', 'PM_INSTALL', 'WINOS2_LOCATION' )
  48. Ende=pos('00'x,windir)-1
  49. Pfad=substr(windir,1,Ende)
  50.  
  51. if Spr="D" then say 'Kopiere Dateien...'
  52. if Spr="E" then say 'Copying files...'
  53. 'copy LFN.EXE ' Pfad
  54. 'copy LFN.ICO ' Pfad
  55. 'copy LFNR.EXE ' Pfad
  56. 'copy LFNDMN.EXE ' Pfad
  57. 'copy LFND.CMD ' Pfad
  58. 'copy LFNCALL.CMD ' Pfad
  59. 'copy LFNCALL.INI ' Pfad
  60. 'copy DSTART.EXE ' Pfad
  61. 'copy BC450RTL.DLL ' Pfad
  62.  
  63. if Spr="D" then do
  64.  say 'Generiere Ordner...'
  65.  title = "LFN-Aufrufe"
  66. end
  67. if Spr="E" then do
  68.  say 'Generating folder...'
  69.  title = "LFN-Calls"
  70. end
  71. classname = 'WPFolder'
  72. location = '<WP_DESKTOP>'
  73. setup = 'OBJECTID=<LFN_Folder>;OPEN=DEFAULT'
  74. result=SysCreateObject(classname,title,location,setup,r)
  75.  
  76. if not result=0 then
  77. do
  78.  if Spr="D" then say 'Fehler beim Erstellen des Ordners !'
  79.  if Spr="E" then say 'error while creating folder !'
  80.  exit
  81. end
  82.  
  83. if Spr="D" then do
  84.  say 'Und jetzt die Programmsymbole...'
  85.  title = "LFN-Dämon"
  86. end
  87. if Spr="E" then do
  88.  say 'And now the program-icons...'
  89.  title = "LFN-Daemon"
  90. end
  91. classname = 'WPProgram'
  92. location = '<LFN_Folder>'
  93. setup = 'OBJECTID=<LFN-Daemon>;EXENAME=LFNDMN.EXE;STARTUPDIR='Pfad
  94. call SysCreateObject classname,title,location,setup,r
  95.  
  96. title = "LFN-Reset"
  97. classname = 'WPProgram'
  98. location = '<WP_START>'
  99. setup = 'OBJECTID=<LFN-Reset>;EXENAME=LFNR.EXE;STARTUPDIR='Pfad';MINWIN=HIDE;MINIMIZED=YES;ICONFILE=LFN.ICO'
  100. call SysCreateObject classname,title,location,setup,r
  101.  
  102. say ''
  103. if Spr="D" then do
  104.  say 'Es werden jetzt die Pfade einiger Standard-Windows-Programme abgefragt.'
  105.  say 'Geben Sie den Pfad ohne die .EXE-Datei an, z.B. G:\MSOFFICE.'
  106.  say ''
  107.  say 'Wenn WINWORD installiert ist, geben Sie bitte jetzt das Verzeichnis an,'
  108.  say 'in dem sich WINWORD.EXE befindet (sonst weiter mit <Eingabe>):'
  109. end
  110. if Spr="E" then do
  111.  say 'Now I must know the position of some Windows-programs.'
  112.  say 'Please type the path without the .EXE-file, for example G:\MSOFFICE.'
  113.  say ''
  114.  say 'If WINWORD is installed, type now the path with the WINWORD.EXE,'
  115.  say 'if it isn't installed type only <Enter>:'
  116. end
  117. pull Verz
  118. if length(Verz) > 0 then do
  119. if right(Verz, 1) \= "\" then do
  120.    Verz = Verz || "\"
  121. end
  122. assoc=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.DOC' )
  123. Ende=length(assoc)-1
  124. assalt=substr(assoc,1,Ende)
  125. SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.DOC', '00'x )
  126. rc = stream('winword.ico','c','query exists')
  127. title = "Winword-LFN"
  128. classname = 'WPProgram'
  129. location = '<LFN_Folder>'
  130. setup = 'OBJECTID=<Winword-LFN>;EXENAME=LFN.EXE;STARTUPDIR='Pfad';MINWIN=HIDE;MINIMIZED=YES;PARAMETERS='tmppfad' 'Verz'WINWORD.EXE;ICONFILE='rc';ASSOCFILTER=*.DOC'
  131. call SysCreateObject classname,title,location,setup,r
  132. assneu=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.DOC' )
  133. assset = assneu || assalt
  134. Erg = SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.DOC', assset )
  135. end
  136.  
  137. say ''
  138. if Spr="D" then do
  139.  say 'Wenn EXCEL installiert ist, geben Sie bitte jetzt das Verzeichnis an,'
  140.  say 'in dem sich EXCEL.EXE befindet (sonst weiter mit <Eingabe>):'
  141. end
  142. if Spr="E" then do
  143.  say 'If EXCEL is installed, type now the path with the EXCEL.EXE,'
  144.  say 'if it isn't installed type only <Enter>:'
  145. end
  146. pull Verz
  147. if length(Verz) > 0 then do
  148. if right(Verz, 1) \= "\" then do
  149.    Verz = Verz || "\"
  150. end
  151. assoc=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.XLS' )
  152. Ende=length(assoc)-1
  153. assalt=substr(assoc,1,Ende)
  154. SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.XLS', '00'x )
  155. rc = stream('excel.ico','c','query exists')
  156. title = "Excel-LFN"
  157. classname = 'WPProgram'
  158. location = '<LFN_Folder>'
  159. setup = 'OBJECTID=<Excel-LFN>;EXENAME=LFN.EXE;STARTUPDIR='Pfad';MINWIN=HIDE;MINIMIZED=YES;PARAMETERS='tmppfad' 'Verz'EXCEL.EXE;ICONFILE='rc';ASSOCFILTER=*.XLS'
  160. call SysCreateObject classname,title,location,setup,r
  161. assneu=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.XLS' )
  162. assset = assneu || assalt
  163. Erg = SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.XLS', assset )
  164. end
  165.  
  166. say ''
  167. if Spr="D" then do
  168.  say 'Wenn WORDPRO für Windows installiert ist, geben Sie bitte das Verzeichnis an,'
  169.  say 'in dem sich WORDPRO.EXE befindet (sonst weiter mit <Eingabe>):'
  170. end
  171. if Spr="E" then do
  172.  say 'If WORDPRO is installed, type now the path with the WORDPRO.EXE,'
  173.  say 'if it isn't installed type only <Enter>:'
  174. end
  175. pull Verz
  176. if length(Verz) > 0 then do
  177. if right(Verz, 1) \= "\" then do
  178.    Verz = Verz || "\"
  179. end
  180. assoc=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.LWP' )
  181. Ende=length(assoc)-1
  182. assalt=substr(assoc,1,Ende)
  183. SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.LWP', '00'x )
  184. rc = stream('wordpro.ico','c','query exists')
  185. title = "Wordpro-LFN"
  186. classname = 'WPProgram'
  187. location = '<LFN_Folder>'
  188. setup = 'OBJECTID=<Wordpro-LFN>;EXENAME=LFN.EXE;STARTUPDIR='Pfad';MINWIN=HIDE;MINIMIZED=YES;PARAMETERS='tmppfad Verz'WORDPRO.EXE;ICONFILE='rc';ASSOCFILTER=*.LWP'
  189. call SysCreateObject classname,title,location,setup,r
  190. assneu=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.LWP' )
  191. assset = assneu || assalt
  192. Erg = SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.LWP', assset )
  193. end
  194.  
  195. say ''
  196. if Spr="D" then do
  197.  say 'Wenn 1-2-3 installiert ist, geben Sie bitte jetzt das Verzeichnis an,'
  198.  say 'in dem sich 123W.EXE befindet (sonst weiter mit <Eingabe>):'
  199. end
  200. if Spr="E" then do
  201.  say 'If 1-2-3 is installed, type now the path with the 123W.EXE,'
  202.  say 'if it isn't installed type only <Enter>:'
  203. end
  204. pull Verz
  205. if length(Verz) > 0 then do
  206. if right(Verz, 1) \= "\" then do
  207.    Verz = Verz || "\"
  208. end
  209. assoc=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.WK?' )
  210. Ende=length(assoc)-1
  211. assalt=substr(assoc,1,Ende)
  212. SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.WK?', '00'x )
  213. rc = stream('123.ico','c','query exists')
  214. title = "123-LFN"
  215. classname = 'WPProgram'
  216. location = '<LFN_Folder>'
  217. setup = 'OBJECTID=<123-LFN>;EXENAME=LFN.EXE;STARTUPDIR='Pfad';MINWIN=HIDE;MINIMIZED=YES;PARAMETERS='tmppfad Verz'123W.EXE;ICONFILE='rc';ASSOCFILTER=*.WK?'
  218. call SysCreateObject classname,title,location,setup,r
  219. assneu=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.WK?' )
  220. assset = assneu || assalt
  221. Erg = SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.WK?', assset )
  222. end
  223. */
  224.  
  225. say ''
  226. if Spr="D" then do
  227.  say 'Wenn CorelDraw installiert ist, geben Sie bitte jetzt das Verzeichnis an,'
  228.  say 'in dem sich CORELDRW.EXE befindet (sonst weiter mit <Eingabe>):'
  229. end
  230. if Spr="E" then do
  231.  say 'If CorelDraw is installed, type now the path with the CORELDRW.EXE,'
  232.  say 'if it isn't installed type only <Enter>:'
  233. end
  234. pull Verz
  235. if length(Verz) > 0 then do
  236. if right(Verz, 1) \= "\" then do
  237.    Verz = Verz || "\"
  238. end
  239. assoc=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.CDR' )
  240. Ende=length(assoc)-1
  241. assalt=substr(assoc,1,Ende)
  242. SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.CDR', '00'x )
  243. rc = stream('corel.ico','c','query exists')
  244. title = "CorelDraw-LFN"
  245. classname = 'WPProgram'
  246. location = '<LFN_Folder>'
  247. setup = 'OBJECTID=<CorelDraw-LFN>;EXENAME=LFN.EXE;STARTUPDIR='Pfad';MINWIN=HIDE;MINIMIZED=YES;PARAMETERS='tmppfad Verz'CORELDRW.EXE;ICONFILE='rc';ASSOCFILTER=*.CDR'
  248. call SysCreateObject classname,title,location,setup,r
  249. assneu=SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.CDR' )
  250. assset = assneu || assalt
  251. Erg = SysIni( 'USER', 'PMWP_ASSOC_FILTER', '*.CDR', assset )
  252. end
  253.  
  254. say ''
  255. say ''
  256. if Spr="D" then do
  257.  say 'Nach dem im Installationsprogramm verwendeten Prinzip können weitere'
  258.  say 'Startsymbole für andere Windows-Programme erzeugt werden.'
  259.  say 'Sehen Sie sich dazu die Einstellungen eines solchen Symboles an.'
  260.  say 'Es wird immer LFN.EXE aufgerufen, das als Parameter ein temporäres'
  261.  say 'Bearbeitungsverzeichnis und den Aufruf des eigentlichen Programmes erhält.'
  262.  say 'Als Arbeitsverzeichnis ist immer das WIN-OS/2-Verzeichnis einzutragen.'
  263.  say 'Weiterhin ist es wichtig, die entsprechende Erweiterung (z.B. *.DOC bei'
  264.  say 'Winword) mit dem Symbol zu verknüpfen, um den Aufruf der zu bearbeitenden'
  265.  say 'Datei über Doppelklick bzw. "Öffnen" im Kontextmenü zu ermöglichen.'
  266.  say 'Zu empfehlen ist in diesem Zusammenhang das Programm "ASSOEDIT" von Henk'
  267.  say 'Kelder.'
  268.  say ''
  269.  say 'Fertig.'
  270. end
  271. if Spr="E" then do
  272.  say 'Following the installation you can set up other programs to use with'
  273.  say 'LFNCall. Look at the settings of one of the objects in the LFN-Folder.'
  274.  say 'Always LFN.EXE is be called, as parameters it gets a temporary folder'
  275.  say 'and the name of the program, which to be called.'
  276.  say 'As working directory you must always set the WIN-OS/2-Directory.'
  277.  say 'Then you must set the assoziation with the file type (for ex. *.DOC for'
  278.  say 'Winword). Recommended for this is the program "ASSOEDIT" from Henk Kelder.'
  279.  say ''
  280.  say 'Ready.'
  281. end
  282. say ''
  283.