home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wf.zip / Shareware / REGISTER.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-28  |  884b  |  32 lines
  1. /* install-script for Object WorkFrame*/
  2.  
  3. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6. say "installing Object WorkFrame starts..."
  7.  
  8. curDir = directory();
  9.  
  10. instPath = 'ASSOCFILTER=*.OWF;EXENAME=';
  11.  
  12. instPath = insert(instPath, curDir);
  13. instPath = insert(instPath, '\wf.exe;STARTUPDIR=');
  14. instPath = insert(instPath, curDir);
  15.  
  16.  
  17. SysIni( 'USER', 'Object WorkFrame', 'InstPath', curDir);
  18.  
  19.  
  20. say "registering ObjectWorkFrame..."
  21. if SysCreateObject('WPProgram', 'Object WorkFrame', '<WP_DESKTOP>', instPath) then
  22.   say "program registered";
  23. else
  24.   say "registering Object WorkFrame failed, perhaps allready installed"
  25.  
  26. if SysCreateObject('WPDataFile', 'ObjectWorkFrame.OWF', '<WP_TEMPS>', 'TEMPLATE=YES') then
  27.   say "template registered"
  28. else
  29.   say "registering template failed, perhaps allready installed\n"
  30.  
  31. say "install done"
  32.