Средства COM и ассоциация файлов со своим приложением

[SalasAndriy]

Доброго времени суток!
У меня возникла небольшая проблемка при ассоциации файлов со своей программой...
Вообщем пишу аудио плеер на делфи и я добавил в программу возможность ассоциировать аудио файлы (mp3, wav, wma, ogg и т.д.)
Всё это у меня получилось но...
В программе я включил обработку параметров командной строки, так что программа файлы открывает...
А теперь самое главное... Когда я например в Explorer выделю 5-10 mp3 файлов и нажму кнопку Enter, то все эти файлы откроются в моей программе, вот только получится 5-10 копий программы....
Я смотрел что другие проигриватели в таком случае спокойно открывают все эти файлы, и просто добавляют их в список и другая копия программы не открывается...
Пробывал так: Поставил запрет на запуск 2 копии программы и отправлял все параметры командной строки уже запущенному окну своего плеера посредством сообщения WM_COPYDATA... вот так:

procedure TFormMain.FormCreate(Sender: TObject);
var
  Str:String;
  i:Integer;
  WindowVerif: HWND;
  cds: COPYDATASTRUCT;
begin
  WindowVerif:= FindWindow(nil, 'Заголовок окна программы');
  if WindowVerif <> 0 then
  begin
    SetForegroundWindow(WindowVerif);
    if (ParamCount > 0) then
    begin
      for i:=1 to ParamCount do
      begin
        Str:=Str+' '+ParamStr(i);
      end;
      cds.cbData := Length(Str);
      cds.lpData := PChar(Str);
      PostMessage(WindowVerif, WM_COPYDATA, 0, Integer(@cds));
    end;
    Halt;
  end;


  // ...
end;

И обрабатываю его вот так:

procedure TFormMain.WmCopyData(var Message: TWMCopyData);
var
  str: string;
  i: integer;
begin
  str := PChar(Message.CopyDataStruct.lpData);
  str:= copy(str, 1, Message.CopyDataStruct.cbData);
  if PlayListAdv1.GetTracking > -1 then
    PlayListAdv1.ADD_File(str)
  else
  begin
    PlayListAdv1.ADD_File(str);
    PlayListAdv1.SetNewItemTrack(0);
  end;
end;

Но меня это не устраивает... Вторая копия программы ведь все-ровно запускается на небольшое время... а когда запустить так файлов 100 или 500 то 500 откроется 500 копий программы и начнёт передавать все параметры главному окну...
Как-то это не коректно..
Другие программы используют средства COM, но я в COM еще не могу разобраться... может кто-то подскажет как осуществить программой обработку множества файлов...
Может есть конкретные примеры именно на такую тему...

Конкретная задача которою я немогу выполнить в программе, это открытие множества файлов из проводника в одной копии моей программы...

Заранее спасибо!

[Кольша]

хоть вопрос был задан давно но все таки вот

     for i:=1 to ParamCount do
      begin
        Str:=Str+' '+ParamStr(i);
      end;
      cds.cbData := Length(Str);
      cds.lpData := PChar(Str);
      PostMessage(WindowVerif, WM_COPYDATA, 0, Integer(@cds));

это замените на это

      for i:=1 to ParamCount do
      begin
        Str:=Str+' '+ParamStr(i);
cds.cbData := Length(Str);
      cds.lpData := PChar(Str);
      PostMessage(WindowVerif, WM_COPYDATA, 0, Integer(@cds));
      end;

[BarsDG]

SalasAndriy, подскажите пожалуйста что за компонент "PlayListAdv1" Вы использовали?