Плеер, Одна проблемка. Опции

[Артемий]

Вожусь с плеером.Ктонибудь не подскажет одну вещь: допустим я использую свой плеер по умолчанию (

  if not ('' = System.ParamStr(1)) then
    with MediaPlayer1 do
    begin
    try
      Filename := System.ParamStr(1);
       {Ну и так далее...}

) Так вот когда я не закрывая первого экземпляра плеера открываю другой муз. файл, то открывается второй экземпляр плеера и там играет вторая мелодия. А я хочу чтобы 2-я мелодия играла в первом экземпляре.

Сообщение отредактировано: Артемий2 - 2.12.2006 17:27

[Артемий]

Это опять я. Сообщение от второго экзэмпляра первому передается,только первое нифига нормально обработать не может:

procedure TForm1.FormCreate(Sender: TObject);
var
d: PChar;
h: hwnd;
begin
Application.OnMessage := AppMessage;
d := PChar(System.ParamStr(1));
h := FindWindow(nil,'MP3 1.8.0.7');
 if (h<>0) then begin
  PostMessage(h,WM_ADD_TO_PLAYLIST,0,lparam(d));
  Application.Terminate;
 end;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_ADD_TO_PLAYLIST then
  begin
    MediaPlayer1.FileName := StrPas(PChar(Msg.lParam)); {<--------  Вот тут произходит ошибка!!!!!}
    MediaPlayer1.Open;

Сообщение отредактировано: Артемий - 24.08.2007 18:52