r1762 installer.

Originally committed to SVN as r1763.
This commit is contained in:
Rodrigo Braz Monteiro 2008-01-18 04:37:07 +00:00
parent 85e100c4f7
commit 6a27b9a075
2 changed files with 16 additions and 3 deletions

View file

@ -181,7 +181,9 @@ Source: ..\bin\locale\pt_BR\aegisub.mo; DestDir: {app}\locale\pt_BR; Flags: igno
Source: ..\bin\locale\pt_BR\wxstd.mo; DestDir: {app}\locale\pt_BR; Flags: ignoreversion; Components: i18n/pt_BR Source: ..\bin\locale\pt_BR\wxstd.mo; DestDir: {app}\locale\pt_BR; Flags: ignoreversion; Components: i18n/pt_BR
[Icons] [Icons]
Name: {commonprograms}\{#MyAppName}; Filename: {app}\Aegisub.exe; WorkingDir: {app}; IconIndex: 0; Components: main; Comment: Aegisub subtitle editor Name: {commonprograms}\Aegisub\{#MyAppName}; Filename: {app}\Aegisub.exe; WorkingDir: {app}; IconIndex: 0; Components: main/icons; Comment: Aegisub subtitle editor
Name: {commonprograms}\Aegisub\Uninstall; Filename: {app}\unins000.exe; WorkingDir: {app}; IconIndex: 0; Components: main/icons; Comment: Uninstall Aegisub
Name: "{userappdata}\Microsoft\Internet Explorer\Quick Launch\{#MyAppName}"; Filename: "{app}\Aegisub.exe"; WorkingDir: {app}; IconIndex: 0; Components: main/qcklnch; Comment: Aegisub subtitle editor
[Run] [Run]
Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; Flags: nowait postinstall skipifsilent
@ -191,6 +193,8 @@ Filename: {app}\{#MyAppExeName}; Description: {cm:LaunchProgram,{#MyAppName}}; F
Name: main; Description: Aegisub; Types: compact full custom; Languages: ; Flags: fixed Name: main; Description: Aegisub; Types: compact full custom; Languages: ; Flags: fixed
;Name: main/runtime; Description: Runtime libraries; Flags: fixed; Types: custom compact full; ExtraDiskSpaceRequired: 4630528 ;Name: main/runtime; Description: Runtime libraries; Flags: fixed; Types: custom compact full; ExtraDiskSpaceRequired: 4630528
Name: main/pdb; Description: Debug database (helps diagnose crashes); Types: full Name: main/pdb; Description: Debug database (helps diagnose crashes); Types: full
Name: main/icons; Description: Programs menu icons; Types: custom compact full
Name: main/qcklnch; Description: Quick launch icon; Types: custom compact full
Name: codec; Description: Media formats support; Flags: fixed; Types: custom compact full Name: codec; Description: Media formats support; Flags: fixed; Types: custom compact full
Name: codec/vsfilter; Description: VSFilter 2.38-aegisub; Types: compact full custom; Flags: fixed Name: codec/vsfilter; Description: VSFilter 2.38-aegisub; Types: compact full custom; Flags: fixed
Name: auto; Description: Automation 4 scripting support; Types: compact full Name: auto; Description: Automation 4 scripting support; Types: compact full
@ -243,6 +247,9 @@ procedure CurStepChanged(CurStep: TSetupStep);
var var
LibHandle: LongInt; LibHandle: LongInt;
ExecResult: Integer; ExecResult: Integer;
CustomPage: TOutputProgressWizardPage;
temp1: String;
temp2: String;
begin begin
if CurStep = ssPostInstall then if CurStep = ssPostInstall then
begin begin
@ -250,11 +257,17 @@ begin
LibHandle := 0; LibHandle := 0;
if LibHandle = 0 then if LibHandle = 0 then
begin begin
temp2 := SetupMessage(msgInstallingLabel);
StringChangeEx(temp2,'[name]','{#MyAppName}',False);
CustomPage := CreateOutputProgressPage(SetupMessage(msgWizardInstalling),temp2);
CustomPage.SetText('Installing Visual C++ 2005 SP1 Runtimes...','');
CustomPage.Show();
ExtractTemporaryFile('vcredist_x86.exe'); ExtractTemporaryFile('vcredist_x86.exe');
if not Exec(ExpandConstant('{tmp}\vcredist_x86.exe'), '/Q', '', SW_SHOW, ewWaitUntilTerminated, ExecResult) then if not Exec(ExpandConstant('{tmp}\vcredist_x86.exe'), '/q:a /c:"VCREDI~3.EXE /q:a /c:""msiexec /i vcredist.msi /qn"" "', '', SW_SHOW, ewWaitUntilTerminated, ExecResult) then
begin begin
MsgBox('Installation of runtime libraries failed. Aegisub will probably not work. The error was: ' + SysErrorMessage(ExecResult), mbInformation, MB_OK); MsgBox('Installation of runtime libraries failed. Aegisub will probably not work. The error was: ' + SysErrorMessage(ExecResult), mbInformation, MB_OK);
end; end;
CustomPage.Hide();
end end
else else
FreeLibrary(LibHandle); FreeLibrary(LibHandle);

View file

@ -1,3 +1,3 @@
release;1.10-524;http://www.aegisub.net/;Aegisub 1.10 release;1.10-524;http://www.aegisub.net/;Aegisub 1.10
svn;1755;http://www.malakith.net/amz/aegisub/;Aegisub Pre-Release 2.00 r1755 build - Several important bug fixes. svn;1762;http://www.malakith.net/amz/aegisub/;Aegisub Pre-Release 2.00 r1762 build - Several important bug fixes.