Главная страница
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.023 c
1-82813
ctapik-net
2002-11-13 18:13
2002.11.25
Получить ширину печатоемой страницы принтера в пикселях


1-82849
Tadeush
2002-11-13 15:35
2002.11.25
Вывод данных о номере версии.


1-82863
Combo
2002-11-11 10:59
2002.11.25
ComboBox ы и их обработчики


3-82680
saniok
2002-11-06 19:36
2002.11.25
А что, больше 7-ми в парадоксе нельзя?


4-83078
misterix
2002-10-15 15:38
2002.11.25
Активизация приложения