В институте задали написать плагин к Винампу полностью на WinAPI. Плагин должен выводить на экран проигрываемую композицию в своем маленьком окне. Один знакомый мне накидал начало, но я в нем плохо успел разобраться, а знакомый уехал и теперь вернется не скоро.
Особое затруднение вызывает ф-ция init:
function init: Integer;
var
mla: TmlAddTreeItemStruct;
begin
Result := 0;
mla.title := SViewTitle;
mla.has_children := 1;
mla.parent_id := 0;
SendMessage(plugin.hwndLibraryParent, WM_ML_IPC, WPARAM(@mla), ML_IPC_ADDTREEITEM);
myParam := mla.this_id;
mla.title := SViewTitle2;
mla.has_children := 1;
mla.parent_id := myParam;
SendMessage(plugin.hwndLibraryParent, WM_ML_IPC, WPARAM(@mla), ML_IPC_ADDTREEITEM);
myParam2 := mla.this_id;
hwnd_winamp:=plugin.hwndWinampParent;
CreateMainWnd;
end;