如何添加＆＃34;新文件夹＆＃34; TInputDirWizardPage

Question

我有以下代码，我需要为用户提供一个选项，在用户选择的文件夹内创建一个新文件夹。

此选项与实际安装程序的文件夹无关。

例如：
如果用户选择了D:\，我想为用户提供选项，以便在不离开安装本身的情况下创建新文件夹D:\code\。

var
  CodePage: TInputDirWizardPage;

procedure ChoseCodeFolder();                   
begin
  CodePage := CreateInputDirPage(wpSelectDir,
    'Select your Code Folder', 'Where should your code folder be located?',
    'Select the folder in which your projects be located, then click Next.',
    false, '');
  CodePage.Add('');
end;

我多次阅读文档，我无法理解如何做到这一点。

我希望问题清楚地描述:)

喜欢这张图片：

Answer 1

只需将值（例如'Code'）传递给ANewFolderName参数：

CodePage := CreateInputDirPage(wpSelectDir,
  'Select your Code Folder', 'Where should your code folder be located?',
  'Select the folder in which your projects be located, then click Next.',
  false, 'Code');

请参阅CreateInputDirPage的文档：

  

如果AAppendDir为False且ANewFolderName不为空，将显示“创建新文件夹”按钮，该按钮将创建具有指定默认名称的新文件夹。