/* --------------------------------------------------------------------------------- * K.A.Ash (c) June 17th 1996 * * install script for KZipper * --------------------------------------------------------------------------------- */ signal on halt name SignalHandler /* Exception handler */ call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' call SysLoadFuncs FileName = SysSearchPath('PATH', 'KZipper.exe') if FileName = '' then do say 'Error: Cannot find KZipper.exe in PATH directories.' exit end rc= SysCreateObject('WPProgram',, 'KZipper', '',, 'TITLE=KZipper;OBJECTID=;STARTUPDIR='directory()';ASSOCFILTER=*.ZIP;ASSOCTYPE=Zip Archive;EXENAME='FileName ,, 'u' ) if rc=0 then say "Sorry, couldn't create the KZipper program object" else do say "KZipper successfully installed" end exit SignalHandler: call SysCls say "error - exiting..." exit