Как открыть несколько файлов с Delphi

Question

Я использую приведенный ниже код, но paramstr (i) задает только путь exe-пути к файлу paramstr (0) и filepath paramstr (1)

, но если я открываю несколько файлов с моим партнером в приложении delhiparamstr (2) и так далее, оставьте пустым, так как я могу получить все выбранные файлы для открытия в моем приложении ??

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 для каждого файла, который вы открываете.