Inno Script：奇怪的空文件夾

我的Inno Script安裝程序在C：驅動器中創建一個空文件夾，但只在一臺機器上。我已經測試過這個腳本的每一臺機器都沒有這個問題。我已經在兩臺Windows 7電腦，一臺XP電腦和一臺Windows XP虛擬電腦上進行了測試。對於所有這些計算機，安裝程序不會創建此空文件夾。Inno Script：奇怪的空文件夾

但是，在我的同事的Windows XP計算機上，安裝程序的行爲與它應該的相同，只是它也在C驅動器上創建了一個空目錄。卸載不會刪除該文件夾。

我已經看過我的腳本，並尋找可能創建額外文件夾的東西，但我什麼也看不見。這是特別難以解決的，因爲我似乎無法複製這個問題。

有沒有人在這裏有一個想法，爲什麼會發生這種情況？

#define MyAppName "Program1" 
#define MyAppVersion "1.0" 
#define MyAppExeName "program1.exe" 

[Setup] 
AppName=Test 
AppVersion=1.0 
AppPublisher=Me 
AppSupportURL=www.google.com 
AppUpdatesURL= www.google.com 

DefaultDirName={code:getDirectory} 
UsePreviousAppDir=no 
DisableDirPage=yes 
DefaultGroupName={#MyAppName} 
DisableProgramGroupPage=yes 
OutputBaseFilename={#MyAppName} {#MyAppVersion} Setup 
Compression=lzma 
SolidCompression=yes 
OutputDir=output 
UninstallFilesDir={code:getDirectory} 


[Languages] 
Name: "english"; MessagesFile: "compiler:Default.isl" 
Name: "german"; MessagesFile: "compiler:Languages\German.isl" 

[Files] 
Source: "test.iss"; DestDir: "{code:getDirectory}"; Flags: ignoreversion; 

[Code] 

var 
    InstallTestVersionCheckBox: TNewCheckBox; 
    Directory : string; 


// ------------------------------ 
// INSTALL 
// ------------------------------ 
procedure InitializeWizard; 
var 
    MainPage: TWizardPage; 


begin 

    MainPage := CreateCustomPage(wpWelcome, 'text', 'text'); 

    // make the checkbox 
    InstallTestVersionCheckBox := TNewCheckBox.Create(MainPage); 
    InstallTestVersionCheckBox.Parent := MainPage.Surface; 
    InstallTestVersionCheckBox.Caption := 'Test Version'; 

end; 

function InstallTestVersion: Boolean; 
begin 
    Result := InstallTestVersionCheckBox.Checked; 
end; 

procedure CurPageChanged(CurPageID: Integer); 
begin 
    if InstallTestVersion() then 
    begin 
     // Set the test version directory 
     Directory := ExpandConstant('{pf32}\Testversion'); 
    end 
    else 
    begin 
     // Set the production version directory 
     Directory := ExpandConstant('{pf32}\Normal'); 
    end; 
end; 

// Returns the correct directory 
function getDirectory(Param: String): String; 
begin 
    Result := Directory; 
end;

來源

2013-09-27 user2823160

據我知道，創新安裝自動創建的唯一文件夾是自己的臨時文件夾，但它不是空而嚮導正在運行，並應在完成後刪除。 – TLama

檢查TEMP文件夾是否在這臺機器上正確設置和訪問。可能會發生TEMP未設置或無法訪問並且安裝程序嘗試在根目錄C：\上創建自己的臨時文件夾。例如。如果未設置WorkingDir，則M $ .NET和VC++可以在ROOT C或其他磁盤上（通常在可用空間最大的磁盤上）創建自己的臨時文件夾。 – RobeN

感謝您的回覆，我會研究這一點。 – user2823160

對於那些誰可能會遇到類似的問題：Inno Setup的突然創造了額外的空文件夾，我不想有。最後我明白了原因：我試圖在[Files]部分創建一個空文件夾。這不是個好主意......所以你只需用[Dirs]部分創建你的空文件夾就可以做到這一點。

不要這樣做：

[Files] 
Source: "M:\My_Empty_Folder"; DestDir: "{userdocs}\My_App_Name"; Flags: ignoreversion

這樣更好：

[Dirs] 
Name: "{userdocs}\My_App_Name\My_Empty_Folder"

來源

2014-12-31 11:51:56

Inno Script：奇怪的空文件夾

回答

相關問題