《Inno Setup多目录选择安装.doc》由会员分享，可在线阅读，更多相关《Inno Setup多目录选择安装.doc（13页珍藏版）》请在金锄头文库上搜索。
1、Inno Setup多目录选择安装SetupShowLanguageDialog=yesAppCopyright=版权所有(C) 2005, BitWorld Inc.AppName=cm:License cm:PackagenameAppVerName=cm:License cm:Packagename cm:PackageverLicenseFile=OutputDir=E:installUninstallFilesDir=code:getmingwdiruninstallExtraDiskSpaceRequired=0UserInfoPage=falseVersionInfoVersio
2、n=2.0VersionInfoCompany=BitWorld Inc.VersionInfoDescription=BitWorldEnableDirDoesntExistWarning=trueAppID=007F4590-89DE-4F87-9608-10F07CEFBBE9LanguageDetectionMethod=uilanguageUsePreviousSetupType=trueDisableStartupPrompt=trueDirExistsWarning=noWizardImageFile=D:Program FilesInno Setup 5WizModernIma
3、ge-IS.bmpWizardSmallImageFile=D:Program FilesInno Setup 5WizModernSmallImage-IS.bmpOutputBaseFilename=Binutils-2.15-MingW32-Msys-setupVersionInfoTextVersion=2.0AppPublisher=heromythAppPublisherURL=http:/ en; MessagesFile: compiler:LanguagesEnglish.isl; LicenseFile: E:installgnu-readme-en-mingw32.txt
4、Name: chs; MessagesFile: compiler:LanguagesChineseSimp-11-5.1.0.isl; LicenseFile: E:installgnu-readme-zh-mingw32.txtMessagesen.BeveledLabel=Created by Heromythchs.BeveledLabel=由张雪平创建ComponentsName: bininstall; Description: cm:installBinFile; Types: full compact; Flags: disablenouninstallwarningName:
5、 libinstall; Description: cm:installLibFile; Types: full; Flags: disablenouninstallwarning; Languages: _ISToolOutputExeFilename=E:installBinutils-2.15-MingW32-Msys-setup.exeFilesSource: ddvvlogo_board.gif; DestDir: code:getmingwdirvv; Components: libinstallSource: dd33logo_board.jpg; DestDir: code:g
6、etmsysdir33; Components: bininstallSource: dd33cppunit-1.10.2.tar.gz; DestDir: code:getmsysdir33; Components: bininstallSource: ddttt.bmp; DestDir: code:getmsysdir; Components: bininstallDirsName: code:getmingwdirvv; Components: libinstallName: code:getmsysdir33; Components: bininstallCustomMessages
7、License=GNUPackagename=BinutilsPackagever=2.15en.installBinFile=install EXE fileschs.installBinFile=安装可执行文件en.installLibFile=install LIB fileschs.installLibFile=安装库文件en.choicedirCaption=Select Destination Locationchs.choicedirCaption=选择目标位置en.choicedirDescription=Where should %1 be installed?chs.cho
8、icedirDescription=你想将 %1 安装在什么地方？en.SelectDirLabel=Setup will install %1 into the following folder.chs.SelectDirLabel=安装程序将安装 %1 到下列文件夹中。en.choicedir=Choice for installation directory of %1chs.choicedir=选择%1的安装目录en.SelectDirBrowseLabel=To continue, click Next. If you would like to select a different
9、 folder, click Browse.chs.SelectDirBrowseLabel=单击“下一步”继续。如果您想选择其它文件夹，请单击“浏览”。en.Button1Browse=&Browse.chs.Button1Browse=浏览(&B).en.Button2Browse=B&rowse.chs.Button2Browse=浏览(&R).en.msyslabel=(store something that run in Shell)chs.msyslabel=(主要用于存放一些需要在Shell环境里使用程序及数据)en.mingwlabel=(store something th
10、at run in win32 with mingw)chs.mingwlabel=(主要用于存放一些需要在win32模式下使用的头文件和库)en.installedDir=installation directory of %1chs.installedDir=%1安装目录Code/Source: ddcppunit-docs-1.10.2.tar.gz; DestDir: code:getmsysdir; Components: bininstall/Source: ddvvheadbg.jpg; DestDir: code:getmingwdirvv; Components: libin
11、stallvar Mingwdir: TLabel; Msysdir: TLabel; BitmapImage1: TBitmapImage; Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; Button2: TButton; NewStaticText1: TNewStaticText; NewStaticText2: TNewStaticText;procedure ChoseMingwFoldersClick(Sender: TObject);var choicedDIR:Stri
12、ng;begin if BrowseForFolder(ExpandConstant(cm:choicedir,Mingw),choicedDIR,True) then Edit1.Text := choicedDIR;end;procedure ChoseMsysFoldersClick(Sender: TObject);var choicedDIR:String;begin/ if BrowseForFolder(选择Msys的安装目录,choicedDIR,True) then if BrowseForFolder(ExpandConstant(cm:choicedir,Msys),ch
13、oicedDIR,True) then Edit2.Text := choicedDIR+1.0;end;procedure choicedir_Activate(Page: TWizardPage);beginend;function choicedir_ShouldSkipPage(Page: TWizardPage): Boolean;begin Result := False;end;function choicedir_BackButtonClick(Page: TWizardPage): Boolean;begin Result := True;end;function choic
14、edir_NextButtonClick(Page: TWizardPage): Boolean;begin Result := True;end;procedure choicedir_CancelButtonClick(Page: TWizardPage; var Cancel, Confirm: Boolean);beginend;function choicedir_CreatePage(PreviousPageId: Integer): Integer;var Page: TWizardPage;begin Page := CreateCustomPage( PreviousPageId, ExpandConstant(cm:choicedirCaption), ExpandConstant(cm:choicedirDescription,cm:Packagename) ); Mingwdir Mingwdir := TLabel.Create(Page); with Mingwdir do begi
