如何通过shell打开调用Delphi程序打开多个文件

program ProcessFiles;

{$APPTYPE CONSOLE}

uses
  System.SysUtils, System.IOUtils;

var
  I: Integer;
begin
  try
    if ParamCount = 0 then
    begin
      Writeln('Usage: ProcessFiles<filename1><filename2> ...');
      ExitCode := 1;
    end;

    for I := 1 to ParamCount do
    begin
      try
        TFile.ReadAllText(ParamStr(I));
        Writeln('Processed file: ', ParamStr(I));
      except
        on E: Exception do
          Writeln('Error processing file ', ParamStr(I), ': ', E.Message);
      end;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

@echo off
ProcessFiles.exe file1.txt file2.txt file3.txt

./ProcessFiles.exe "file1.txt" "file2.txt" "file3.txt"