home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / gsm214r.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1998-02-03  |  1KB  |  55 lines
  1. /*
  2.  * install.cmd - Gismo instalation program
  3.  *               Gismoö─ùpâCâôâXâgü[âëü[
  4.  *
  5.  * release 1 - 03/Feb/98
  6.  *
  7.  */
  8.  
  9. call rxfuncadd 'sysloadfuncs', 'rexxutil', 'sysloadfuncs'
  10. call sysloadfuncs
  11.  
  12. say "- - - - - - - - - - - -"
  13. say " Gismo install program"
  14. say "- - - - - - - - - - - -"
  15.  
  16. trg_object = '<WP_DESKTOP>'
  17.  
  18. name = SysSearchPath('path','gismo.exe')
  19. if name = '' then do
  20.    say 'error. I cannot find Gismo.EXE file.'
  21.    call End
  22. end
  23.  
  24. parameter = 'exename='name';startupdir='directory()';objectid=<Gismo>'
  25.  
  26. if SysCreateObject('WPProgram', 'Gismo for OS/2', trg_object, parameter, 'u') <> 0 then do
  27.    say ''
  28.    say ' Gismo instalation was successfully completed.'
  29.    say ''
  30.    say ' Gismoé╠âCâôâXâgü[âïé═û│Äûé╔ÅIù╣é╡é▄é╡é╜üB'
  31. end
  32. else do
  33.    say 'error. I cannot create object.'
  34.    call End
  35. end
  36.  
  37. say ''
  38. say ''
  39. say ''
  40. say ''
  41. say ''
  42. say ''
  43. say ''
  44. say ''
  45. say ''
  46. say ''
  47. say ''
  48. say ''
  49. say ''
  50. say ' ...By the way, Gismo needs VROBJ.DLL.'
  51. say ''
  52.  
  53. End:
  54. exit
  55.