передача сообщения из DLL

[SERG1980]

Здравствуйте форумчане!
Такой вопрос у меня: Набросал хук на мышь где отлавливаю нажатие на клавиши и движение курсора. С этой частью нормально. А как мне всё это безобразие передавать в приложение, чтобы в дальнейшем уже приложение обрабатовало действия. Пока на ум пришло только пересылка с помощью SendMessage, т.е хуком отловили сообщение например WM_LBUTTONUP и это же сообщение переслали в приложение. Или просто как нибудь передать параметр, например 1 это WM_LBUTTONUP 2 это WM_LBUTTONDOWN и т.д.
Так ли я мыслю или это делается по другому. Больше года уже не писал в делфи, практически все тонкости забыл

[raxp]

postMessage(findWindow(nil, 'MY APPLICATION'), WM_USER + 1, mouseInfo.pt.X, mouseInfo.pt.Y);

Ловим как обычно:

private
    { Private declarations }
    procedure wmUser1(var msg: tMessage); message WM_USER + 1;
...


procedure Tmain_wnd.wmUser1(var msg: tMessage);
begin
 memo1.lines.add( 
 format('v1: %d; v2: %d;', [msg.WParam, msg.LParam])
)
end;

[SERG1980]

Сделал но сообщения о нажатой кнопки мыши передаются в программу только когда курсор находится над ней. если кликать за пределами окна то ничего не происходит.

[Stilet]

Набросал хук на мышь где отлавливаю нажатие на клавиши и движение курсора.

В какое приложение? У тебя Хук висит, либо ты передаешь по цепочке сообщение через CallNextHookEx дальше адресату, либо получаешь рекурсию с сообщениями. Возможно бесконечную.

[SERG1980]

Вот исходник Dll

{$R *.res}
uses
  SysUtils,
  Classes,
  Windows,
  Messages;

var HMouse: hHook = 0;
    WindowHd: THandle;
function Key_HookMouse(code,wP,lP:integer):integer stdcall;
begin
 if (code >=0) then
  begin
   if wP = WM_LBUTTONDOWN then SendMessage(WindowHd,WM_USER + 1,wP,lP);
  end;
 Result:=CallNextHookEx(HMouse,code,wP,lP);
end;

procedure StartMouse;
begin
WindowHd:=FindWindow(nil,'Form1');
if HMouse = 0 then HMouse:=SetWindowsHookEx(WH_MOUSE,@Key_HookMouse,hinstance,0);

end;

procedure StopMouse;
begin
 if HMouse <> 0 then
  begin
   UnhookWindowsHookEx(HMouse);
   HMouse:=0;
  end;
end;

exports
 StartMouse,
 StopMouse;

begin
end.

а вот приложение в которое должны приходить все сообщения о нажатии клавиши на мышке

 public
     procedure WMMouseInfo(var msg: TMessage); message WM_USER + 1;
  end;

var
  Form1: TForm1;
 procedure StartMouse; stdcall;
 procedure StopMouse; stdcall;
implementation

{$R *.dfm}
procedure StartMouse; external 'xxxxxx.dll' name 'StartMouse';
procedure StopMouse; external 'xxxxxx.dll' name 'StopMouse';

procedure TForm1.WMMouseInfo(var msg: TMessage);
begin
 if msg.WParam = WM_LBUTTONDOWN then memo1.Lines.Add('down')
 else inherited;
end;

[xoodoo]

DLL не нужна вообще.
Для глобального перехвата мышиных событий существует хук WH_LL_MOUSE.

[SERG1980]

Сообщение от xoodoo

DLL не нужна вообще.
Для глобального перехвата мышиных событий существует хук WH_LL_MOUSE.

Да получилось (WH_MOUSE_LL = 14) а почему не получается через WH_MOUSE?

[xoodoo]

потому что после установки хука dll внедряется отдельным экземпляром в каждое приложение, которому системой посылаются мышиные сообщения.

В том экземпляре, который ты загрузил ручками с целью вызова StartMouse, переменная WindowHd была инициализирована значением хендла искомого окна.
Во всех прочих потенциально загружаемых системой экземплярах никто эту процедуру не вызывал, поэтому WindowHd в них не инициализирована.

[SERG1980]

Ну хорошо а вы можете мне показать на примере как сделать без DLL хук на мышь с помощью WH_LL_MOUSE

[raxp]

...вечером скину такой прожект, машина на работе голяк.