如何用Delphi打开多个文件

Question

我正在使用下面的代码 但paramstr（i）只提供文件exe path paramstr（0）和filepath paramstr（1）

但是如果我用我的delhi app关联paramstr（2）打开multiples文件等等，请给我空白，那么如何才能将所有选中的文件用我的应用程序打开？

procedure Talpha.FormCreate(Sender: TObject);
var
m:IWMPMedia ;
i:integer;
begin

 for i := 1 to ParamCount  do
        //   for i := 0 to ParamCount -1 do
   begin


 m:=WMP1.mediaCollection.add(paramstr(i));

  WMP1.currentPlaylist.appendItem(m);




    except

Answer 1

我希望你错误地对待“m”。我认为你需要为你打开的每个文件都有一个新的m实例。