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