Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2009.01.11;
Скачать: [xml.tar.bz2];

Вниз

Функция плагина winamp...   Найти похожие ветки 

 
FEV   (2008-11-26 20:10) [0]

Пишу маленький плагин к Winamp"у...
имею функцию

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;


Имею подсказку:
winampuser(*,211) - Retrieves (and returns a pointer in "ret") a string that contains the filename of a playlist entry (indexed by "data"). Returns NULL if error, or if "data" is out of range.
Дело в том, что сама команда sendmessage возвращает всегда только integer;
Как мне получить строку имени файла или имя композиции и т.п. в общем чтоб вывело строку? Как модифицировать функцию?


 
Сергей М. ©   (2008-11-26 20:16) [1]

Ты где такой травы накурился ?


 
Slym ©   (2008-11-27 05:39) [2]

FEV   (26.11.08 20:10)
function winampuser(data:integer; id:integer):string;
begin
...
res:=sendmessage(winamphwnd,wm_user,data, id);
if res<>0 then
 result:=StrPas(res)
else
 result:="";
end;


 
Дядя Коля   (2008-11-28 14:06) [3]

FEV   (26.11.08 20:10)
Читай из заголовка окна)
GetWindowText :)



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

Форум: "Начинающим";
Текущий архив: 2009.01.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.006 c
15-1226952249
NoDt
2008-11-17 23:04
2009.01.11
Поясните пожалуста Алгоритм Дейкстры


2-1227719429
FEV
2008-11-26 20:10
2009.01.11
Функция плагина winamp...


15-1226644981
Slider007
2008-11-14 09:43
2009.01.11
С днем рождения ! 14 ноября 2008 пятница


15-1225878617
Kolan
2008-11-05 12:50
2009.01.11
Присоветуйте ноутбук.


2-1227686798
Trinimak
2008-11-26 11:06
2009.01.11
data diagram





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский