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
|
{
AutoReplacer plugin
by Angelo Luiz Tartari
}
{$IFNDEF M_AUTOREPLACER}
{$DEFINE M_AUTOREPLACER}
const
{
Adds a window handle to AutoReplacer.
This handle must belong to any window based on a editbox (editbox, richtext, TMemo, TEdit, TMaskEdit, etc.).
After adding a handle, AutoReplacer will automatically work on this window.
wParam = 0
lParam = (LPARAM)(HWND)hwnd
Returns: 0 on success, -1 if hwnd is invalid, 1 on error.
}
MS_AUTOREPLACER_ADDWINHANDLE = 'AutoReplacer/AddWinHandle';
{
Removes a window handle from AutoReplacer's list.
wParam = 0
lParam = (LPARAM)(HWND)hwnd
Returns: 0 on success, -1 if hwnd is invalid, 1 if hwnd wasn't found.
}
MS_AUTOREPLACER_REMWINHANDLE = 'AutoReplacer/RemWinHandle';
function autoreplacer_AddWinHandle(hwnd: HWND): integer;
begin
Result := CallService(MS_AUTOREPLACER_ADDWINHANDLE, 0, LPARAM(hwnd));
end;
function autoreplacer_RemWinHandle(hwnd: HWND): integer;
begin
Result := CallService(MS_AUTOREPLACER_REMWINHANDLE, 0, LPARAM(hwnd));
end;
{$ENDIF}
|
