|
338 | 338 | ProcessesPage:TWizardPage;
|
339 | 339 | ProcessesListBox:TListBox;
|
340 | 340 | ProcessesRefresh,ContinueButton:TButton;
|
| 341 | + PageIDBeforeInstall:Integer; |
341 | 342 | #ifdef DEBUG_WIZARD_PAGE
|
342 | 343 | DebugWizardPage:Integer;
|
343 | 344 | #endif
|
@@ -1112,6 +1113,8 @@ begin
|
1112 | 1113 | // This button is only used by the uninstaller.
|
1113 | 1114 | ContinueButton:=NIL;
|
1114 | 1115 |
|
| 1116 | + PageIDBeforeInstall:=ExtraOptionsPage.ID; |
| 1117 | +
|
1115 | 1118 | #ifdef DEBUG_WIZARD_PAGE
|
1116 | 1119 | DebugWizardPage:={#DEBUG_WIZARD_PAGE}.ID;
|
1117 | 1120 | #endif
|
@@ -1147,9 +1150,14 @@ begin
|
1147 | 1150 | // This will be checked later again when the user clicks "Next".
|
1148 | 1151 | WizardForm.DirEdit.Text:=ExpandConstant('{userpf}\{#APP_NAME}');
|
1149 | 1152 | end;
|
| 1153 | + end else if CurPageID=PageIDBeforeInstall then begin |
| 1154 | + RefreshProcessList(NIL); |
| 1155 | + if GetArrayLength(Processes)=0 then |
| 1156 | + WizardForm.NextButton.Caption:=SetupMessage(msgButtonInstall); |
1150 | 1157 | end else if (ProcessesPage<>NIL) and (CurPageID=ProcessesPage.ID) then begin
|
1151 | 1158 | // Show the "Refresh" button only on the processes page.
|
1152 | 1159 | ProcessesRefresh.Show;
|
| 1160 | + WizardForm.NextButton.Caption:=SetupMessage(msgButtonInstall); |
1153 | 1161 | end else begin
|
1154 | 1162 | ProcessesRefresh.Hide;
|
1155 | 1163 | end;
|
@@ -1407,6 +1415,8 @@ begin
|
1407 | 1415 |
|
1408 | 1416 | // Load the built-ins from a text file.
|
1409 | 1417 | FileName:=AppDir+'\{#MINGW_BITNESS}\{#APP_BUILTINS}';
|
| 1418 | + if not FileExists(FileName) then |
| 1419 | + Exit; // testing... |
1410 | 1420 | if LoadStringsFromFile(FileName,BuiltIns) then begin
|
1411 | 1421 | Count:=GetArrayLength(BuiltIns)-1;
|
1412 | 1422 |
|
|
0 commit comments