Maks150988
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
violant
Вот мой вариант на Delphi, может станет отправной точкой, хотя даже и не плагин.
Код: function WinampGetCurrentMusic: AnsiString;
const
pszWnmp: AnsiString = 'Winamp';
pszFind: AnsiString = '%s v1.x';
pszEnd : AnsiString = ' - %s';
var
hWinamp: HWND;
dwRet : DWORD;
pszText: AnsiString;
pstart : Integer;
pend : Integer;
begin
Result := '';
hWinamp := FindWindow(LPTSTR(Format(pszFind, [pszWnmp])), nil);
if (hWinamp <> 0) then
begin
dwRet := SendMessage(hWinamp, WM_GETTEXTLENGTH, 0, 0);
if (dwRet <> 0) then
begin
SetLength(pszText, dwRet + 1);
SendMessage(hWinamp, WM_GETTEXT, dwRet + 1, Longint(LPTSTR(pszText)));
pstart := Pos('.', pszText);
pend := Pos(Format(pszEnd, [pszWnmp]), pszText);
Result := Copy(pszText, pstart + 2, pend - pstart - 2);
end;
end;
end; |
|
