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
|
library testdll;
uses
m_api, Windows;
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';
authorEmail:'noreply@sourceforge.net';
copyright :'(c) 2003 J. Random Hacker';
homepage :'http://miranda-icq.sourceforge.net/';
flags :UNICODE_AWARE;
replacesDefaultModule:0;
uuid:'{08B86253-EC6E-4d09-B7A9-64ACDF0627B8}';
);
var
PluginInterfaces:array [0..1] of MUUID;
function MirandaPluginInfo(mirandaVersion:DWORD):PPLUGININFOEX; cdecl;
begin
result:=@PluginInfo;
PluginInfo.cbSize:=SizeOf(TPLUGININFO);
end;
function MirandaPluginInfoEx(mirandaVersion:DWORD):PPLUGININFOEX; cdecl;
begin
result:=@PluginInfo;
PluginInfo.cbSize:=SizeOf(TPLUGININFOEX);
end;
function PluginMenuCommand(wParam: WPARAM; lParam: LPARAM):Integer; cdecl;
begin
Result:=0;
// this is called by Miranda, thus has to use the cdecl calling convention
// all services and hooks need this.
MessageBox(0, 'Just groovy, baby!', 'Plugin-o-rama', MB_OK);
end;
var
onloadhook:THANDLE;
function OnModulesLoaded(wParam:WPARAM;lParam:LPARAM):int;cdecl;
var
mi:TCListMenuItem;
begin
Result:=0;
PluginLink^.UnhookEvent(onloadhook);
PluginLink^.CreateServiceFunction('TestPlug/MenuCommand', @PluginMenuCommand);
FillChar(mi,SizeOf(mi),0);
mi.cbSize :=SizeOf(mi);
mi.position :=$7FFFFFFF;
mi.flags :=0;
mi.hIcon :=LoadSkinnedIcon(SKINICON_OTHER_MIRANDA);
mi.szName.a :='&Test Plugin...';
mi.pszService:='TestPlug/MenuCommand';
PluginLink^.CallService(MS_CLIST_ADDMAINMENUITEM,0,dword(@mi));
end;
function Load(link:PPLUGINLINK):int; cdecl;
begin
// this line is VERY VERY important, if it's not present, expect crashes.
PluginLink:=Pointer(link);
InitMMI;
onloadhook:=PluginLink^.HookEvent(ME_SYSTEM_MODULESLOADED,@OnModulesLoaded);
Result:=0;
end;
function Unload:int; cdecl;
begin
Result:=0;
end;
function MirandaPluginInterfaces:PMUUID; cdecl;
begin
PluginInterfaces[0]:=MIID_TESTPLUGIN;
PluginInterfaces[1]:=MIID_LAST;
result:=@PluginInterfaces;
end;
exports
Load, Unload,
MirandaPluginInfo,
MirandaPluginInterfaces,MirandaPluginInfoEx;
begin
end.
|
