Question

My Inno Script安装程序在C：驱动器中创建一个空文件夹，但仅在一台计算机上。我测试过脚本的其他每台机器都没有这个问题。我在两台Windows 7计算机，一台XP计算机和一台Windows XP虚拟计算机上进行了测试。对于所有这些计算机，安装程序不会创建此空文件夹。

但是，在我的同事的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;

Answer 1

对于那些可能遇到类似问题的人：Inno设置突然创建了我不想要的其他空文件夹。最后我明白了原因：我试图在[Files]部分创建一个空文件夹。这不是一个好主意......所以你只需要用[Dirs]部分创建你的空文件夹，就可以做到这一点。

不要这样做：

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

这样更好：

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

Inno脚本：奇怪的空文件夹

1 个答案: