From: Kevin C. <ke...@us...> - 2005-04-27 10:41:39
|
Update of /cvsroot/mailmanager/installers/windows In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19121 Modified Files: mailmanager.iss Log Message: Major rewrite. Inno setup appears to have changed considerably for version 5.0.x. In particular, the form generation and classes appear to have radically changed. Have now increased the use of defines and tried to make the code slightly clearer to read. Installer does work correctly, although may still contain bugs. Index: mailmanager.iss =================================================================== RCS file: /cvsroot/mailmanager/installers/windows/mailmanager.iss,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- mailmanager.iss 11 Jun 2004 15:39:31 -0000 1.11 +++ mailmanager.iss 27 Apr 2005 10:41:25 -0000 1.12 @@ -1,634 +1,641 @@ -[Setup] -AppName=MailManager -AppVerName=MailManager 1.0 -DefaultDirName={pf}\MailManager -DefaultGroupName=MailManager -LicenseFile=skel\Products\MailManager\LICENSE.txt -WizardImageFile=installers\windows\lp.bmp -WizardSmallImageFile=installers\windows\lp.bmp -; Extra disk space for created .url files -ExtraDiskSpaceRequired=167 -; This just adds "Don't create a Start Menu folder" option since desktop icons are associated with a task. [...1244 lines suppressed...] + SetPreviousData(PreviousDataKey, 'SMTP port', SmtpValuesPage.Values[1]); + SetPreviousData(PreviousDataKey, 'First TID', MiscValuesPage.Values[0]); + SetPreviousData(PreviousDataKey, 'Mail check interval', MiscValuesPage.Values[1]); + SetPreviousData(PreviousDataKey, 'Acc address', AccAddressPage.Values[0]); + SetPreviousData(PreviousDataKey, 'Noftify agent', BoolToStr(AccNotifyAgentPage.Values[0])); + SetPreviousData(PreviousDataKey, 'Forwarded', BoolToStr(AccMailRoutingPage.Values[0])); + SetPreviousData(PreviousDataKey, 'Get', BoolToStr(AccMailRoutingPage.Values[1])); + SetPreviousData(PreviousDataKey, 'POP3', BoolToStr(AccMailTypePage.Values[0])); + SetPreviousData(PreviousDataKey, 'IMAP', BoolToStr(AccMailTypePage.Values[1])); + SetPreviousData(PreviousDataKey, 'Acc server name', AccMailServerPage.Values[0]); + SetPreviousData(PreviousDataKey, 'Acc user name', AccMailServerPage.Values[1]); +end; + + +procedure InitializeWizard(); +begin + { Custom wizard pages } + CreateTheWizardPages; + LoadOldData; +end; |