[r1x]

Здрасте)
Вообщем я написал проигрыватель на Delphi c использованием bass.dll vis_bass.dll и тд.

Вообщем проблема в следущем хочу чтоб название трека отображалось в Mail.Ru Agent е как это сделать плиз подскажите очень надо...

[AmX]

посматрити тут: http://agent.mail.ru/ru/developers/index.html
если ответ не найдётся, то:

Вы можете направлять свои вопросы, пожелания, предложения и реализации программ на адрес agent-dev@corp.mail.ru.

[r1x]

Сообщение от AmX

посматрити тут: http://agent.mail.ru/ru/developers/index.html
если ответ не найдётся, то:

Вообщем в фотм протокле ничегонет про то что я хочу..написал по майлу тишина(((

[r1x]

Ппц...что никто не знает ответа?! хоть б какие ниюуть предложения былиб....вообще 0 рекции...(((

[0nni]

Код:

//создай вот такую функцю
function NowPlayingWindowProc(wnd, msg, wparam, lparam : Integer) : integer; stdcall;
begin
  case msg of
    WM_USER : //Агентру еще проверяет играется ли сейчас песня
                    //Для этого винампу посылается WM_USER, 104, 0
                    //1 - играет  3-пауза.
      if lParam = 104  then Result := 1 else
      Result := DefWindowProc(wnd, msg, wparam, lparam);
    else
    Result := DefWindowProc(wnd, msg, wparam, lparam);
  end;
end;

//Это выполни при создании формы
var
  NowPlayingWnd : HWND;
  wc : TWndClass;
begin
  ZeroMemory(@wc, SizeOf(Wc));
  wc.lpfnWndProc := @NowPlayingWindowProc;
  wc.hInstance := HInstance;
  wc.lpszClassName := 'Winamp v1.x';//помоему так
  RegisterClass(wc);

  NowPlayingWnd := CreateWindow('Winamp v1.x', '<Нет трека>', 0, 0, 0, 0, 0, 0, 0, HInstance, nil);
end.

Что бы изменить текущую песню - поменяй заголовок

Код:

SetWindowText(NowPlayingWnd, 'Terra Fantastica - Flavus ');

Когда окно не будет нужно, сделай так

Код:

DestroyWindow(NowPlayingWnd )

Вроде так.

_________
Маленькая ошибка закралась в WM_USER необходимо проверять Lparam а не Wparam на 104
_________
А, да, сам метод - мы "притворяемся" винампом.

[M-UNIT]

___deleted

[0nni]

Сообщение от M-UNIT

нет-нет-нет......надо найти способ редактировать медиа плейр и винамп

Что именно там редактировать?

[M-UNIT]

___deleted

[nwm]

Сообщение от M-UNIT

ну тогда edit делать)))

Так, наверное проще будет.