Скачать: CL | DM;

Почему осн. проект получает сообщение от ДЛЛ только когда активен   Найти похожие ветки 

← →
artist ©   (2003-06-25 12:19) [0]

В ДЛЛ

Const
WM_HOOOK = WM_USER + 1;

function GetMsgProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
begin
if code = HC_ACTION then
begin
{Проверяю, нажата ли правая кнопка мыши}
if TMsg(Pointer(lParam)^).message = WM_RBUTTONDOWN then
begin
PostMessage(MainHandle, WM_HOOOK, 0, 0);

end;
end;
Result:= CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

В осн. проекте:

procedure TForm1.myhoook(var Message: TMessage);
begin
Edit1.Text:=Edit1.Text+"aa";
end;

---

← →
Cobalt ©   (2003-06-25 12:49) [1]

Дык, MainHandle откуда заполняется-то?
Вот то-то. А должен тоже хранится в межпроцессной GlobalData, а не в локальной переменной процесса.

---

← →
artist ©   (2003-06-25 16:32) [2]

Спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c