Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.25;
Скачать: CL | DM;

Вниз

Как получить название проигрываемой песни в Winamp?   Найти похожие ветки 

 
_sMile   (2002-10-11 06:52) [0]

Код, который берёт заголовок окна - не предлагать.


 
Rouse_ ©   (2002-10-11 07:06) [1]

Вот тебе выдержка из WinAmp SDK

How do I get the filename (not title) of the current song?
First you must get the current track index from the playlist. Then you can get the filename.


int index = SendMessage(hwnd_winamp, WM_USER, 0, IPC_GETLISTPOS);
char *name = SendMessage(hwnd_winamp, WM_USER, index, IPC_GETPLAYLISTFILE);

Желаю успехов


 
_sMile   (2002-10-11 07:14) [2]

Да, я видел WinAmp SDK, видел и эти строки, но как SendMessage может возвращать нечисловое значение? Если ты знаешь, пожалуйста напиши примерчик.


 
Viktor Kushnir ©   (2002-10-11 07:30) [3]

Может быть char *name это указатель?


 
Rouse_ ©   (2002-10-11 07:53) [4]

Хм интересная петрушка получается, вот я сейчас попробовал

procedure TForm1.Button1Click(Sender: TObject);
const IPC_GETLISTPOS = 125;
IPC_GETPLAYLISTFILE = 211;
var wnd:THandle;
tmp:Pointer;
Index: Integer;
s:String;
begin
wnd := FindWindow("Winamp v1.x", nil);
Index := SendMessage(wnd, WM_USER, 0, IPC_GETLISTPOS);
Label1.Caption := IntToStr(Index +1);
tmp := Pchar(SendMessage(wnd, WM_USER, index, IPC_GETPLAYLISTFILE));
Label2.Caption := String(tmp);
//Read(tmp,s);
end;


Вроде должно было сработать, а нет, указатель tmp постоянно один и тот же адрес показывает, даже если песня другая играет, номер песни без проблем показывается, щас еще попробую помучится ;)


 
REA ©   (2002-10-11 13:46) [5]

Да не возвратит он указатель, если это не плугин DLL. Процессы то разные.


 
_sMile   (2002-10-11 16:22) [6]

Можно и плагин написать. Не мог бы кто-нибудь кинуть ссылки на доки по созданию плагинов в Дельфях или примерчик?


 
bytebutcher ©   (2002-10-12 03:21) [7]

_sMile - сходи на www.sourceforge.net и найди GPFWinamp - типа того - набор компонент для написания плагинов для WinAMP. При большом желании можно использовать ReadProcessMemory (если не хочешь писать плагин - а хочешь что бы это была отдельная прога)



Страницы: 1 вся ветка

Текущий архив: 2002.11.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.019 c
1-82737
ton2
2002-11-15 11:08
2002.11.25
перекрестное объявление классов в Object Pascal


1-82792
Мефодий
2002-11-13 16:00
2002.11.25
Чем в Delphi можно заменить макро оператор & из Clipper а


3-82645
AccessLamer
2002-11-06 11:49
2002.11.25
Хочу аналог интербейсовского генератора в аксесе...


1-82812
Jeka.
2002-11-13 09:41
2002.11.25
Scroll


3-82608
NiBL
2002-11-05 09:28
2002.11.25
Помогите с DBEdit !!!