1

これらは、Inno Setup でファイル選択ダイアログを表示する 2 つの方法です。

ウィザード ページの方法:

[Code]
Var
  PageFileDialog: TInputFileWizardPage;

procedure InitializeWizard;
begin
  PageFileDialog:= CreateInputFilePage(
    wpWelcome, 
    'Title 1', 
    'Title 2', 
    'Title 3'); 
 
  PageFileDialog:= PageFileDialog.Edits[PageFileDialog.Add('', 'Text file (*.txt)|*.txt', '.txt')];
end;

直接開くダイアログ、

[Code]
procedure InitializeWizard;
var
    FileName: string;
begin
    FileName := '';
    if GetOpenFileName('', FileName, '', 
    'Text Documents (*.txt)|*.txt|All Files|*.*', 'txt') then
    begin
       { Filename contains the selected filename }
    end;
end;

ただし、これらでは、開いているダイアログで複数のファイルを選択することはできません。1 つのファイルのみが選択されます。複数のファイルを選択するには？

3 つの宛先フォルダーを使用した問題の Inno Setupの方法は、ここでは機能しません。複数のファイルを選択できる 1 つのテキスト ボックスと参照ボタンである必要があります。

4

1 に答える 1

3

Inno Setup 6.0.5(u) でテストしました。他のバージョンは異なる場合があります。

GetOpenFileNameMulti関数を見てみましょう:ドキュメントから:

説明:
ユーザーが 1 つまたは複数の既存のファイルを選択できるダイアログ ボックスを表示します。ユーザーがファイルを選択した場合は True、それ以外の場合は False を返します。選択したファイルの名前が FileNameList リストに返されます。

備考:
例 Filter: 'テキスト ファイル ( .txt)| .txt|すべてのファイル ( . )| . '

例：

var
  FileNameList: TStrings;
begin
  { Create the list }
  FileNameList := TStringList.Create;
  try
    if GetOpenFileNameMulti('', FileNameList, '',
       'Text Documents (*.txt)|*.txt|All Files|*.*', 'txt') then
    begin
      { Successful; user clicked OK }
      { FileNameList contains the selected filename(s) }
    end;
  finally
    FileNameList.Free;
  end;
end;
于 2020-08-22T14:00:30.273 に答える