• Welcome to OS2World OLD-STATIC-BACKUP Forum.
 

News:

This is an old OS2World backup forum for reference only. IT IS READ ONLY!!!

If you need help with OS/2 - eComStation visit http://www.os2world.com/forum

Main Menu

Create program objects for PKZip 2.50

Started by jep, 2008.04.29, 21:19:57

Previous topic - Next topic

jep

Marked as: Normal
Hello,

originally written to be compiled to an executable.

Place script in the same folder as PKWare's text mode application pkzip 2.50 for OS/2 and 3 icons that show Compression of Multiple files, Compression of a single file and Unpack files. See and adjust icon file names in script to the ones you use.

/* Zip/Unzip v0.01 for PkZip 2.50 */
'@echo off'

Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL','SysLoadFuncs'
Call SysLoadFuncs

prgm.destpath.1 = directory()
prgm.name.1 = 'pkzip.exe'
prgm.objid.1 = 'MZip'
prgm.icon.1 = 'PackFolder.ico'
prgm.wpname.1 = 'Multipart Zip'
prgm.wpdest.1 = '<WP_DESKTOP>'
prgm.params.1 = '/add /max /span "[Drive and Destination:]%**N" "%**P\%**N\*.*"'
prgm.assocfilter.1 = ' '

prgm.destpath.2 = directory()
prgm.name.2 = 'pkzip.exe'
prgm.objid.2 = 'FZip'
prgm.icon.2 = 'PackFile.ico'
prgm.wpname.2 = 'Zip File'
prgm.wpdest.2 = '<WP_DESKTOP>'
prgm.params.2 = '/add /max /span "[Drive and Destination:]%**N" "%**P\%**F"'
prgm.assocfilter.2 = '.*'

prgm.destpath.3 = directory()
prgm.name.3 = 'pkzip.exe'
prgm.objid.3 = 'MUnzip'
prgm.icon.3 = 'Unpack.ico'
prgm.wpname.3 = 'Multipart UnZip'
prgm.wpdest.3 = '<WP_DESKTOP>'
prgm.params.3 = '/extr /span /dir=specify "%**P\%**F"  "[Destination path:]"'
prgm.assocfilter.3 = '*.zip'

prgm.num=3

do add = 1 to prgm.num
call addest
end
EXIT
   
addest:
        setupstring = 'OBJECTID=<'prgm.objid.add'>;EXENAME='prgm.destpath.add'\'prgm.name.add';PARAMETERS='prgm.params.add';ASSOCFILTER='prgm.assocfilter.add';ICONFILE='directory()'\'prgm.icon.add';'

        /*Create program in folder and attach icon*/
if SysCreateObject( 'WPProgram', prgm.wpname.add, prgm.wpdest.add, setupstring ) then
say prgm.wpname.add' has been successfully installed'
else
say  prgm.wpname.add' failed installation'
RETURN