VPF::Работа с winamp'ом - Форум программистов

Artem91

Дата 20.9.2007, 15:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 13.7.2007

Репутация: нет
Всего: нет

Мне для курсовой нужно написать программу, которая будет узнавать текущий трек в винампе и выводить его в метку в моей программе.
Как я понимаю, нужно узнать хендл главного окна, потом хендл списка, а потом получить его итем... Но как это все реализовать не представляю!!! Помогите пожалуйста...

Alexeis

Дата 20.9.2007, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Код


library Project2;
uses
  windows,
  messages;

function getmname:string;
var h: hwnd;
    buf: array[0..255] of char;
    l: integer;
begin
 h := findwindow(pchar('winamp v1.x'), nil);
 l := sendmessage(h, wm_gettextlength, 0, 0);
 sendmessage(h, wm_gettext, l+1, integer(@buf));
 result := copy(buf, pos('.', buf)+2, l-pos(' - winamp', buf)-length(' - winamp')-pos('.', buf));
end;

function procname(mWnd, aWnd: HWND; data, parms: PChar; show, nopause: boolean):integer;stdcall;
begin
 lstrcpy(data, PChar(getmname));
 result:=3;
end;

exports procname;

begin
end.

Взято отсюда

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

W4FhLF

Дата 20.9.2007, 15:21 (ссылка)

(нет голосов)

Загрузка ...

found myself

Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: 6
Всего: 121

В DRKB есть статья "Взаимодействуем с Winamp", смотрел?

Это сообщение отредактировал(а) W4FhLF - 20.9.2007, 15:22

--------------------

Artem91

Дата 20.9.2007, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 13.7.2007

Репутация: нет
Всего: нет

Спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »