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

[Артемий]

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

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

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

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

[volvo]

Правильнее будет - так:

var
  d: PChar;

procedure TForm1.FormCreate(Sender: TObject);
var
  h: hwnd;
begin
  Application.OnMessage := AppMessage;
  d := StrNew(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);
var s: string;
begin
  if Msg.message = WM_ADD_TO_PLAYLIST then
  begin
    s := StrPas(PChar(Msg.lParam));
    MediaPlayer1.FileName := s;
    MediaPlayer1.Open;
...

Попробуй, что ЭТОТ вариант тебе выдаст? (не забудь потом удалить D, чтоб не было утечки)

Сообщение отредактировано: volvo - 24.08.2007 19:39