Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

WM_COPYDATA   Найти похожие ветки 

 
alex732   (2004-04-08 10:21) [0]

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

library MyHook;
.................

procedure hook export; stdcall;
begin
 K := SetWindowsHookEx(WH_KEYBOARD, @KeyProc1, HInstance, 0);
end;

function KeyProc1(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var
 cd : TCopyDataStruct;
begin
 Times := GetTickCount();
 cd.cbData := Length(inttostr(Times))+1;
 cd.lpData := PChar(inttostr(Times));
 SendMessage(FindWindow("TForm1", nil),
              WM_COPYDATA, 0,lParam(@cd));
                                   ^^[Error] MyHook.dpr(34): Missing operator or semicolon

 Result:= CallNextHookEx(K, Code, wParam, lParam);
end;
...............

Брррр... Почему??


 
alex732   (2004-04-08 10:22) [1]

или можно это сделать как то по другому?


 
VMcL ©   (2004-04-08 15:56) [2]

>>alex732

lParam - параметр функции, поэтому компилятор "не видит" тип LPARAM, определенный в модуле Windows.

Пиши:

SendMessage(FindWindow("TForm1", nil),
      WM_COPYDATA, 0, Integer(@cd));

или

SendMessage(FindWindow("TForm1", nil),
      WM_COPYDATA, 0, Windows.LPARAM(@cd));


 
alex732   (2004-04-08 18:50) [3]

Ок.  Спасибо.



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

Текущий архив: 2004.05.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
11-1070887951
Phantom
2003-12-08 15:52
2004.05.23
KOL&MCK выкидывают мой код... Что делать ?


1-1084115984
KLAUS
2004-05-09 19:19
2004.05.23
НУжно просто навсего удалить файл


1-1083747219
SoftAl
2004-05-05 12:53
2004.05.23
Управление чужим софтом


1-1083940236
Dll
2004-05-07 18:30
2004.05.23
Проблемка с asm


3-1082638410
}|{yk
2004-04-22 16:53
2004.05.23
Логи сравнения (Оракл)