delphi - アプリケーションアイコンにドラッグアンドドロップされたファイルの数を知る方法は?

Question

アプリケーション アイコンにドロップされるファイルの名前は、ParamStr(1) にあります。

しかし、複数あるかどうかを知るにはどうすればよいでしょうか。それ以上ある場合は、次のようなエラー メッセージが表示されるはずです。またはそれに似ています。

Answer 1

Windowsは、次のようにプログラムを実行します。

yourapp.exe "C:\file1.jpg" "C:\file2.jpg"

したがって、これらの各ファイルはParamStr(i)、で見つけることができます。ここで、値iがParamCount()返されます。

したがって、たとえば次のようにすることができます。

procedure TMainForm.FormShow(Sender: TObject);
begin
  if ParamCount > 1 then
  begin
    ShowMessage('You can open only one picture!');
  end
  else
  begin
    MyOpen(ParamStr(1));
  end;
end;

Answer 2

例で答えると、すべてのファイルがパラメータになります

var
 i:Integer;

begin

  Memo1.Lines.Add(IntToStr(ParamCount));
  for I := 1 to ParamCount  do
    memo1.Lines.Add(paramstr(i))

end;