File tree Expand file tree Collapse file tree 1 file changed +8
-4
lines changed
Expand file tree Collapse file tree 1 file changed +8
-4
lines changed Original file line number Diff line number Diff line change @@ -403,11 +403,15 @@ begin
403403end ;
404404
405405procedure InstallPython ();
406+ var
407+ Shell: Variant;
408+ ZipFile: Variant;
409+ TargetFolder: Variant;
406410begin
407- InstallDepPage.SetText(' Installing Python...' , ' ' );
408- Shell := CreateOleObject(' Shell.Application' );
409- ZipFile := Shell.NameSpace(ExpandConstantEx(' {tmp}\{filename}' , ' filename' , PythonDep.Filename));
410- TargetFolder := Shell.NameSpace(ExpandConstant(' {app}\Python3' ));
411+ InstallDepPage.SetText(' Installing Python...' , ' ' )
412+ Shell := CreateOleObject(' Shell.Application' )
413+ ZipFile := Shell.NameSpace(ExpandConstantEx(' {tmp}\{filename}' , ' filename' , PythonDep.Filename))
414+ TargetFolder := Shell.NameSpace(ExpandConstant(' {app}\Python3' ))
411415 TargetFolder.CopyHere(ZipFile.Items, SHCONTCH_NOPROGRESSBOX or SHCONTCH_RESPONDYESTOALL);
412416 CleanPython()
413417 InstallDepPage.SetProgress(InstallDepPage.ProgressBar.Position+1 , InstallDepPage.ProgressBar.Max)
You can’t perform that action at this time.
0 commit comments