Usando Hook Procedure - Ajuda para unir 2 dll em um projeto.

Delphi

08/08/2006

Encontrei aqui no forum links para utilizar hooks de teclado e mouse. Nos exemplos citados abaixo os projetos estao separados, um pra mouse e outro pra teclado.
Estou com dificuldades de unir os codigos em uma dll.

Segue o erro:

library HookMouseTeclado;

{Demo de Hook de Ratón a nivel de sistema, Radikal.}

uses Windows, Messages;

const

CM_MANDA_DATOS = WM_USER + $1000; \\\ dll do mouse
CM_MANDA_TECLA = WM_USER + $1000; \\ dll teclado


Nas linhas acima esta dando erro.. Diz que nao posso utilizar o metdo acima duas vezes. Pois estava tentando carregar as duas dll´s, pois nao tive sucesso ao tentar montar uma dll so ..


Waltherjr

Waltherjr

Curtidas 0

Respostas

Waltherjr

Waltherjr

08/08/2006

Completando ...

Erro: duplicate message method index

Na seguinte linha

procedure LlegaDelHook(var message: TMessage); message; CM_MANDA_DATOS ;
procedure LlegaDelHook(var message: TMessage); message CM_MANDA_teclas;


GOSTEI 0
Waltherjr

Waltherjr

08/08/2006

Completando ...

Erro: duplicate message method index

Na seguinte linha

procedure LlegaDelHook(var message: TMessage); message; CM_MANDA_DATOS ;
procedure LlegaDelHook(var message: TMessage); message CM_MANDA_teclas;


GOSTEI 0
POSTAR