Однако, можно также отдать Handle вашего окна, что исключит путаницу в случае нахождения в
системе двух окон с одинаковыми классами.
Код:
SendMessage(CheckerHandle, WM_USER, 100, Handle);
Для основного окна программы
Handle := Application.MainForm.Handle
Для посылки команды для RADIO Checker PRO используется функция
SendMessage(CheckerHandle, WM_USER, Cmd, Param);
Для обработки обратных сообщений программы нужно добавить функцию - обработчик сообщений
WM_USER.
При нахождение одного из образцов RADIO Checker Pro сообщит об этом Вашей программе с
кодом.
Код:
wParam = 2000,
lParam = Номер образца в базе -1
procedure CheckerMessage (var Msg: TMessage); message WM_USER;
...
procedure TCheckerHandler.CheckerMessage (var Msg: TMessage);
begin
case a.wParam of
2000: SampleIndex := Msg.lParam + 1;
end;
end;
Вот это то мне и надо – отловить, когда программа пошлёт это самое сообщение. Может ктонить поможет собрать эти обрывки кода до-кучи, в более-менее осмысленную форму?
Спасибо.