Inno setup Inno设置CreateInputDirPage但不'；t检查文件夹是否存在

我有一个Inno Setup Pascal脚本，提示用户输入4个文件夹。其中三个文件夹应该已经存在。第四个用作占位符，将来我将在其中装入VHD磁盘。所以我只使用这个文件夹的字符串值

当用户运行脚本时，他得到一个错误，即UNC路径不存在（是的，它不应该存在。例如，如果他说“L:\myfolder”，则L:驱动器尚未加载，并且那里没有磁盘。这是正确的。我的Inno安装脚本稍后将为您加载它

如何禁用对文件夹的检查

FoldersPage:=CreateInputDirPage（InfoPage.ID，
'文件夹设置'，'自定义非标准EGPL系统的文件夹设置'，
'如果默认值可接受，请单击“下一步”。'，
错误，“新建文件夹”）；
添加（“地理包输出文件夹”）；
Add（'GeoLibrary的VHD装载路径'）；
Add（'EGPL源文件夹'）；
Add（'WWW Root Folder'）；

您不能禁用验证

您可以通过使用

.Add

仅添加三个输入来解决此问题。然后手动添加第四个输入，控制它

var
DataDirPage:TInputDirWizardPage；
自定义编辑：TEdit；
程序初始化；
变量
索引：整数；
偏移量：整数；
Promptabel:TNewStaticText；
终极编辑：TEdit；
最后编辑：TEdit；
最终标签：TNewStaticText；
开始
DataDirPage:=CreateInputDirPage（wpSelectDir，
'文件夹设置'，'自定义非标准EGPL系统的文件夹设置'，
'如果默认值可接受，请单击“下一步”。'，
错误，“新建文件夹”）；
添加（'GeoPackage Output Folder'）；
索引：=DataDirPage.Add（'GeoLibrary的VHD装载路径'）；
PenultimateEdit:=DataDirPage.Edits[索引]；
索引：=DataDirPage.Add（'EGPL源文件夹'）；
UltimateEdit:=DataDirPage.Edits[索引]；
UltimateLabel:=DataDirPage.PromptLabels[Index]；
偏移量：=UltimateEdit.Top-PenultimateEdit.Top；
promptabel:=TNewStaticText.Create（WizardForm）；
PrompLabel.Top:=最终标签.Top+偏移量；
PromptLabel.Width:=最终标签.Width；
PromptLabel.Height:=最终标签高度；
PrompLabel.Parent:=DataDirPage.Surface；
promptabel.Caption:=“WWW根文件夹”；
CustomDirEdit:=TEdit.Create（WizardForm）；
CustomDirEdit.Top:=UltimateEdit.Top+偏移量；
CustomDirEdit.Width:=UltimateEdit.Width；
CustomDirEdit.Parent:=DataDirPage.Surface；
PromptLabel.FocusControl:=CustomDirEdit；
结束；
函数NextButtonClick（CurPageID:Integer）：布尔值；
开始
结果：=真；
如果CurPageID=DataDirPage.ID，则
开始
如果CustomDirEdit.Text=''，则
开始
MsgBox（'您必须输入WWW根文件夹'，mbError，MB_OK）；
结果：=假；
结束；
//任何其他验证
结束；
结束；

这并没有“浏览”按钮。这还需要更多的工作，我不确定它是否有意义，因为输入用于输入一个不存在的驱动器的路径

---

检查我对相同问题的回答，查看解决方法。