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
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
|
{$IFNDEF M_HOTKEYSSERVICE}
{$DEFINE M_HOTKEYSSERVICE}
const
HKS_SERVICE_NAME = 'HotkeysService';
// Modifiers for hotkeys
// MOD_ALT = $0001;
// MOD_CONTROL = $0002;
// MOD_SHIFT = $0004;
// MOD_WIN = $0008;
MOD_GLOBAL = $0010;
// FLAGS
// inherit modifiers from group (specified modifiers ignored)
HKS_ACTION_SHAREMODIFIERS = 1;
// register item, but disable
HKS_INITIALLY_DISABLED = 2;
// Structure of hotkey
type
PHKSHotkey = ^THKSHotkey;
THKSHotkey = record
case boolean of
false: (
key :WORD;
modifiers:WORD;);
true: (hotkey:DWORD)
end;
const
// ITEM TYPES
HKS_ITEM_MODULE = 1;
HKS_ITEM_GROUP = 2;
HKS_ITEM_ACTION = 3;
HKS_ITEM_MACRO = 4;
// Structure passed to RegisterItem service.
// Used only for registration pursposes, so free it after call.
// name, owner and itemType field is mandatory.
// owner is item ID or must be 0 for 1st level items (module, single action or macro)
// itemType can be one of ITEM TYPES constants.
// flags can be combined from FLAGS constants.
// Group can contain other groups and items and optionally
// set group modifiers. Only item can be tree leaf.
// If creating group, hotkey.modifiers will be used
// as group modifiers (if nonzero)
// If creating action, hotkey is optional. If hotkey.key is filled, then
// hotkey will be assigned to item (if unused).
// If creating macro, hotkey is mandatory.
type
PHKSItem = ^THKSItem;
THKSItem = record
owner :int;
name :PAnsiChar;
itemType:int;
hotkey :THKSHotkey;
flags :int;
end;
const
{
Register item
wParam: item data in PKHSItem format
lParam: 0
Returns HANDLE called "ID" in loWord.
For actions and macros, hiWord returns state: 0 if ok, other if passed hotkey
can't be registered (for example already used)
In other cases hiWord is useless
}
MS_HKS_REGISTER_ITEM = 'HotkeysService/RegisterItem';
{
Unregister item
If item is Group, then all subItems will be unregistered.
wParam: item ID
lParam: 0
Returns: 0 on success, other on fail
}
MS_HKS_UNREGISTER_ITEM = 'HotkeysService/UnregisterItem';
{
Assign hotkey to item. If item is group, then only
modifiers are taken as group modifiers. Do not call on modules.
Hotkey consists of modifiers in hiWord and key in loWord.
wParam: item ID
lParam: hotkey as PHKS_Hotkey to register
Returns:
on success: hotkey
on error: 0
}
MS_HKS_ASSIGN_HOTKEY = 'HotkeysService/AssignHotkey';
{
Get hotkey assigned to item. Don't apply to modules.
wParam: item ID
lParam: 0
Returns: hotkey assigned, 0 otherwise.
}
MS_HKS_GET_HOTKEY = 'HotkeysService/GetAssignedHotkey';
{
Unassign hotkey from item. Only valid on action and macro items.
wParam: item ID
lParam: 0
Returns: 0 on success, other on fail
}
MS_HKS_UNASSIGN_HOTKEY = 'HotkeysService/UnassignHotkey';
{
Enable/Disable item.
If item is group or module, then all subItems will be affected.
wParam: item ID
lParam: 1 to enable, anything else to disable
Returns: 0 on success, other on fail
}
MS_HKS_ENABLE_ITEM = 'HotkeysService/EnableItem';
{
Hotkey to text
wParam: hotkey to textify
lParam: address to place string, space must be allocated
Returns: 0
}
MS_HKS_TO_TEXT = 'HotkeysService/HotkeyToText';
{
Get hotkey from text
wParam: text to convert to hotkey
lParam: 0
Returns: hotkey
}
MS_HKS_FROM_TEXT = 'HotkeysService/HotkeyFromText';
type
PHKSEvent = ^TTHKSEvent;
THKSEvent = record
itemId :int;
moduleId:int;
name :PAnsiChar;
itemType:int;
hotkey :THKSHotkey;
end;
const
{
Event when hotkey is pressed
wParam: PHKSEvent
lParam: 0
}
ME_HKS_KEY_PRESSED = 'HotkeysService/HotkeyPressed';
// Util functions ////////////////////////////////////////////////////////////////////////
(*
static int HKS_RegisterModule(AnsiChar *name)
{
THKSItem item = {0};
if (!ServiceExists(MS_HKS_REGISTER_ITEM))
return -1;
item.name = name;
item.itemType = HKS_ITEM_MODULE;
return LOWORD(CallService(MS_HKS_REGISTER_ITEM, (WPARAM) &item, 0));
}
static int HKS_RegisterAction(int owner, AnsiChar *name, int modifiers, AnsiChar key, int flags)
{
THKSItem item = {0};
if (!ServiceExists(MS_HKS_REGISTER_ITEM))
return -1;
item.owner = owner;
item.name = name;
item.itemType = HKS_ITEM_ACTION;
item.flags = flags;
if (key != 0)
{
item.hotkey.key = (WORD) key;
item.hotkey.modifiers = modifiers;
}
return LOWORD(CallService(MS_HKS_REGISTER_ITEM, (WPARAM) &item, 0));
}
static int HKS_RegisterGroup(int owner, AnsiChar *name, int modifiers, int flags)
{
THKSItem item = {0};
if (!ServiceExists(MS_HKS_REGISTER_ITEM))
return -1;
item.owner = owner;
item.name = name;
item.itemType = HKS_ITEM_GROUP;
item.flags = flags;
item.hotkey.modifiers = modifiers;
return LOWORD(CallService(MS_HKS_REGISTER_ITEM, (WPARAM) &item, 0));
}
static int HKS_Unregister(int id)
{
THKSItem item = {0};
if (!ServiceExists(MS_HKS_UNREGISTER_ITEM))
return -1;
return CallService(MS_HKS_UNREGISTER_ITEM, (WPARAM) id, 0);
}
*)
{$ENDIF}
|
