| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
WinAMP [D7, XP]
Дядя Педро © (2008-06-28 12:55:00)Здравствуйте.
Как можно узнать название и исплонителя песни, которые проигрываются в винампе? получилось узнать длину трека, битрейт и тп. Делаю так:
function WinampUser(Data: Integer; ID: Integer): Integer;
var
WinampHWND: HWND;
begin
WinampHWND := FindWindow('Winamp v1.x', nil);
if WinampHWND <> 0 then
Result := SendMessage(WinampHWND, WM_USER, Data, ID)
else
Result := -1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Showmessage(IntToStr(WinampUser(1, 105)));
end;
Так я возвращаю длину текущего трека. Но строковые значения как достать не знаю. Помогите, пожалуйста.
Спасибо.
Jet (2008-06-29 12:27:00) [21]У меня проблема с получением названия трека из JetAudio.
hja := FindWindow('COWON Jet-Audio MainWnd Class', nil);
if hja <> 0
then
begin
SetLength(tmp, 255);
GetWindowText(hja, @tmp[1], 255);
...............................................
Проблема в том, что текст в заголовке главного окна "ползает", как бегущая строка. Была мысль накапливать по букве весь текст, который через заголовок идет, но не радостно как-то от этого.
Есть ли какой способ более "правильный" и быстрый?
AlexanderMS (2008-06-28 20:17:00) [22]1) Может, проще достать из заголовка главного окна?
2) Поэкспериментировать с ID?
| |
Страницы: 