home *** CD-ROM | disk | FTP | other *** search
/ Dr. CD ROM (Annual Premium Edition) / premium.zip / premium / IBMOS2_1 / PHONE2.ZIP / INSTALL.CMD next >
OS/2 REXX Batch file  |  1993-10-04  |  1KB  |  36 lines
  1. /* Telephone Dialer 1.0b installation utility  */
  2. call rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  3. call sysloadfuncs
  4.  
  5. cr = '0d'x
  6. lf = '0a'x
  7.  
  8. Say 'What is the destination directory? (default = C:\Phone)'
  9. Pull Destination
  10. if Destination = "" then Destination = "C:\Phone"
  11.  
  12. md Destination
  13.  
  14. Say lf cr
  15. Say 'Copying the file...'
  16. copy "Phone.exe" Destination"\Phone.exe /v"
  17.  
  18. /* associate the .exe file  */
  19. SetupString = "ASSOCTYPE=Telephone Book;ASSOCFILTER=*.TEL"
  20. result = SysSetObjectData(Destination "\Phone.exe", SetupString)
  21.  
  22. /* make telephone dialer icon  */
  23. ClassName   = "WPProgram"
  24. Title       = "Telephone Dialer"
  25. SetupString = "EXENAME=" Destination "\PHONE.EXE;PROGTYPE=PM;STARTUPDIR=" Destination ";OBJECTID=<TELEPHONE_DIALER_ICON>;ICONPOS=48,50;"
  26. Location    = "<WP_DESKTOP>"
  27. Flags       = "R"
  28. Say lf cr 
  29. Say 'Placing the Telephone Dialer icon on the desktop...' lf cr
  30. result = SysCreateObject(ClassName, Title, Location, SetupString, Flags)
  31.  
  32. Say 'Program is now installed.' lf lf cr
  33.  
  34. Exit
  35.  
  36.