1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
library testdll;
uses m_api, Windows,common;
{$include m_helpers.inc}
{$include m_music.inc}
const
PluginInfo:TPLUGININFOEX=(
cbSize :sizeof(TPLUGININFOEX);
shortName :'Plugin Template';
version :$00000001;
description:'The long description of your plugin, to go in the plugin options dialog';
author :'J. Random Hacker';
copyright :'(c) 2003 J. Random Hacker';
homepage :'http://miranda-icq.sourceforge.net/';
flags :UNICODE_AWARE;
uuid:'{00000000-0000-0000-0000-000000000000}'
);
var
hook:integer;
oldproc:tReadFormatProc;
// -------- format --------
Function mp3proc(var dst:tSongInfo):boolean;cdecl;
begin
{
MP3 Handler here
}
//messagebox(0,'ok','',0);
// Example for old handler
if (int(@oldproc)<>WAT_RES_OK) and (int(@oldproc)<>WAT_RES_ERROR) then
result:=oldproc(dst)
else
result:=true;
end;
// ---------- Player ----------
var
plwnd:HWND;
function Check(flags:integer):HWND;cdecl;
begin
result:=1;
plwnd:=12;
end;
function GetFileName:pWideChar;cdecl;
begin
result:=nil;
end;
function GetInfo(var SongInfo:tSongInfo;flags:integer):integer;cdecl;
begin
PluginLink^.CallService(MS_WAT_WINAMPINFO,integer(@SongInfo),flags);
// static player data
if (flags and WAT_OPT_PLAYERDATA)<>0 then
begin
SongInfo.plyver:=$1234;
end
// changing during playing data
else if (flags and WAT_OPT_CHANGES)<>0 then
begin
end
// track info static data
else
begin
end;
result:=0;
end;
function Command(command:integer;value:integer):integer;cdecl;
begin
result:=PluginLink^.CallService(MS_WAT_WINAMPCOMMAND,plwnd,
command+(value shl 16));
end;
function OnWATLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;
var
tmp:tMusicFormat;
tmp1:tPlayerCell;
begin
PluginLink^.UnhookEvent(hook);
FillChar(tmp,SizeOf(tMusicFormat),0);
lstrcpy(tmp.ext,'MP3');
tmp.proc:=mp3proc;
oldproc:=tReadFormatProc(PluginLink^.CallService(MS_WAT_FORMAT,
WAT_ACT_REGISTER+WAT_ACT_REPLACE,dword(@tmp)));
FillChar(tmp1,SizeOf(tPlayerCell),0);
tmp1.desc :='Sampler';
tmp1.flags :=0;// WAT_OPT_WINAMPAPI
tmp1.Check :=@Check;
tmp1.GetInfo:=@GetInfo;
tmp1.Command:=@Command;
tmp1.GetName:=@GetFileName;
PluginLink^.CallService(MS_WAT_PLAYER,WAT_ACT_REGISTER+WAT_ACT_REPLACE,dword(@tmp1));
result:=0;
end;
function OnModuleLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;
begin
hook:=HookEvent(ME_WAT_MODULELOADED,@OnWATLoaded);
result:=0;
end;
function Load(link: PPLUGINLINK): int; cdecl;
begin
PLUGINLINK := pointer(link);
InitMMI;
Result:=0;
hook:=HookEvent(ME_SYSTEM_MODULESLOADED,@OnModuleLoaded);
end;
function Unload: int; cdecl;
begin
Result:=0;
end;
exports
Load, Unload;
begin
end.
|
