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

だけANewFolderNameパラメータに値（例えば'Code'）を渡す：

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が空でない場合は、指定されたデフォルト名で新しいフォルダを作成するMake New Folderボタンが表示されます。