Inno設置代碼來安裝python

Question

我有一個inno設置代碼，它安裝了python。它工作正常，我得到setup.exe文件與其中的python設置文件。但是，當我嘗試安裝與該安裝文件的Python，它沒有工作。這是因爲安裝文件正在尋找文件部分中指定的python文件，如果是的話如何更改代碼，使裏面的python setup.exe將被使用。此外，安裝程序正在創建一個默認應用程序，每次當我安裝設置。我已經嘗試了屬性DisableDirPage =是，但它沒有奏效。任何機構能否爲此提出一些解決方案。

   #define MyAppName "My Program" 
      #define MyAppVersion "1.5" 



        [Setup] 
      AppId={{BD59E856-F194-4E05-A93B-89089F3E3E9D} 
      AppName={#MyAppName} 
      AppVersion={#MyAppVersion} 
      ;AppVerName={#MyAppName} {#MyAppVersion} 
      ;AppPublisher={#MyAppPublisher} 
      ;AppPublisherURL={#MyAppURL} 
      ;AppSupportURL={#MyAppURL} 
      ;AppUpdatesURL={#MyAppURL} 
      DefaultDirName={pf}\{#MyAppName} 
      DefaultGroupName={#MyAppName} 
      OutputBaseFilename=setup 
      Compression=lzma 
      SolidCompression=yes 
      DisableDirPage=yes 


      [Files] 
      Source: "H:\python-2.7.5.msi"; DestDir: "{app}"; Flags: ignoreversion 




      [code] 
      #define MinJRE "1.6" 
      #define WebJRE "H:\python-2.7.5.msi" 

      function InitializeSetup(): Boolean; 
      var 
      ErrorCode: Integer; 
     PythonInstalled : Boolean; 
      Result1 : Boolean; 
      begin 
       PythonInstalled :=      RegKeyExists(HKLM,'SOFTWARE\Wow6432Node\Python\PythonCore\2.7\InstallPath'); 
      if PythonInstalled then 
      begin 
      MsgBox('installed', mbInformation, MB_OK); 
      end 
       else 
      begin 

      Result1 := MsgBox('2222222222222222This tool requires python Runtime Environment to run. Do you want to install it now?', 
      mbConfirmation, MB_YESNO) = idYes; 
      if Result1 = false then 
      begin  
      Result:=false; 
      end 
     else 
      begin 

      MsgBox('not installed', mbInformation, MB_OK); 
       Result:=true; 
       ShellExec('', 
       '{#WebJRE}', 
       '','',SW_SHOWNORMAL,ewNoWait,ErrorCode); 
      end; 
        end; 
       end; 

Answer 1

如Tlama所說，對腳本做了一些更改。在我身邊正常工作，更改了文件部分條目，並使用Exec代替ShellExec ...

將python-2.7.5.amd64.msi替換爲python-2.7.5.msi 並將D：\替換爲H： \

#define MyAppName "My Program" 
#define MyAppVersion "1.5" 

[Setup] 
AppId={{BD59E856-F194-4E05-A93B-89089F3E3E9D} 
AppName={#MyAppName} 
AppVersion={#MyAppVersion} 
DefaultDirName={pf}\{#MyAppName} 
DefaultGroupName={#MyAppName} 
OutputBaseFilename=setup 
Compression=lzma 
SolidCompression=yes 
DisableDirPage=yes 

[Files] 
Source: "D:\python-2.7.5.amd64.msi"; Flags: dontcopy 

[code] 
#define MinJRE "1.6" 

function InitializeSetup: Boolean; 
var 
    ErrorCode: Integer; 
    PythonInstalled: Boolean; 
    Result1: Boolean; 
    WebJRE: string; 
begin 
    PythonInstalled := RegKeyExists(HKLM, 'SOFTWARE\Wow6432Node\Python\PythonCore\2.7\InstallPath'); 
    if PythonInstalled then 
    begin 
    MsgBox('installed', mbInformation, MB_OK); 
    end 
    else 
    begin 
    Result1 := MsgBox('This tool requires python Runtime Environment to run. Do you want to install it now ?', mbConfirmation, MB_YESNO) = IDYES; 
    if not Result1 then 
    begin  
     Result := False; 
    end 
    else 
    begin 
     MsgBox('not installed', mbInformation, MB_OK); 
     Result := True; 

     ExtractTemporaryFile('python-2.7.5.amd64.msi') 
     WebJRE:='"'+Expandconstant('{tmp}\python-2.7.5.amd64.msi')+'"' 
     Exec('cmd.exe ','/c'+WebJRE,'', SW_HIDE,ewWaituntilterminated, Errorcode); 
    end; 
    end; 
end;