Sample Code to Install Winzip 7.0

Keywords: 	  winzip 7.0

---

This routine will install the registered version shipped on disk. I haven't tested it anymore on the version in which a serial number needs to be given. It also doesn't really installs the utility, but rather runs it from the network.

program="z:\WinZip70\WINZIP32.EXE"
sysdir = Environment("SYSTEMROOT")

pace=0

if !DirExist("C:\instlogs") then DirMake("C:\instlogs")
loghandle=fileopen("C:\instlogs\winzip.txt","write")
FileWrite(loghandle,"[%program%]")
FileWrite(loghandle,Timedate())

run(program,"")

title="WinZip"
child="&Ordering Information"
timeout=2
gosub waitturn
If c==@false then
	title="WinZip Tip of the Day"
	child=""
	timeout=2
	gosub waitturn
	IF t then
		MouseClickBtn(title,"","Close")
		Goto einde
	Endif

	title="WinZip Setup"
	child="Thank you for installing WinZip!"
	timeout=-1
	gosub waitturn
	MouseClickBtn(title,"","Next >")

	title="License Agreement and Warranty Disclaimer"
	child=""
	timeout=3
	gosub waitturn
	If t then MouseClickBtn(title,"","Yes")

	title="WinZip Setup"
	child='Select "Wizard" or "Classic"'
	timeout=-1
	gosub waitturn
	SendKeysTo(title,"!c");	Start with WinZip Classic
	MouseClickBtn(title,"","Next >")

	child='Click "Next" to proceed.'
	timeout=-1
	gosub waitturn
	SendKeysTo(title,"!e");	Express Setup
	MouseClickBtn(title,"","Next >")

	child="Finish"
	timeout=-1
	gosub waitturn
	MouseClickBtn(title,"","Finish")

	title="WinZip"
	child="No"
	timeout=3
	gosub waitturn
	Display(2,"Child",c)
	if c then MouseClickBtn(title,"","No")

	title="WinZip Tip of the Day"
	child=""
	timeout=3
	gosub waitturn
	IF t then MouseClickBtn(title,"","Close")

Endif
:Einde
title="WinZip"
While Winexist(title)
	WinClose(title)
	TimeDelay(2)
Endwhile

shortcut=strcat(sysdir,"\profiles\all users\start menu\utilities\WinZip.lnk")
if !FileExist(shortcut) then ShortcutMake(shortcut,program,"","",0)

FileWrite(loghandle,Timedate())
FileClose(loghandle)
Return

:waitturn
t=WinWaitExist(title, timeout)
IF child<>"" then c=WinWaitChild(title,child,timeout)
TimeDelay(pace)
filewrite(loghandle,title)
filewrite(loghandle,child)
return

---

Article ID:   W14464

Filename:   Install Winzip7 Sample Code.txt