Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Получить значения xPos & yPos из lParam... [D5, Win95/98]

Camedia © (2003-08-30 00:58:00)

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

function HookProc(Code: Integer; wParam: Word; lParam: Longint): Longint;
begin
if (wParam=WM_LBUTTONDOWN) then
begin
result := CallNextHookEx(ourHook, Code, wParam, lParam);
UnHookWindowsHookEx(ourHook);
ShowMessage("??????????");
end
else
result:=CallNextHookEx(ourHook, Code, wParam, lParam);
end;

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

Song (2003-08-31 10:07:00) [1]

Ты типа сам с собой разговариваешь? :)

Camedia (2003-08-30 21:46:00) [2]

К сожалению, н едождался от вас помощи, сам нашёл ответ:

function HookProc(Code: Integer; wParam: Word; lParam: Longint): Longint;
var msg : PMouseHookStruct;
begin
if Code < 0 then
begin
result := CallNextHookEx(OurHook, Code, wParam, lParam);
exit;
end;

msg := PMouseHookStruct(lParam);
if (wParam=WM_LBUTTONDOWN) then
begin
UnHookWindowsHookEx(ourHook);
ShowMessage(IntToStr(msg^.pt.x));
end;
result := CallNextHookEx(ourHook, Code, wParam, lParam);
end;

Но возникли проблемы - после того, как окошко появилось и я нажал ОК, форма становится неактивной - нужно на ней кщё раз щёлкнуть. Как этого избежать?

Camedia (2003-08-30 21:13:00) [3]

М-да, в принципе, LoWord и HiWord не должны возвращать координат, т.к. я ставлю хук, использую WH_MOUSE, а значит lParam является указателем на TMouseHookStruct. Откопал в модуле Windows:

{ Structure used by WH_MOUSE }
PMouseHookStruct = ^TMouseHookStruct;
{$EXTERNALSYM tagMOUSEHOOKSTRUCT}
tagMOUSEHOOKSTRUCT = packed record
pt: TPoint;
hwnd: HWND;
wHitTestCode: UINT;
dwExtraInfo: DWORD;
end;
TMouseHookStruct = tagMOUSEHOOKSTRUCT;
{$EXTERNALSYM MOUSEHOOKSTRUCT}
MOUSEHOOKSTRUCT = tagMOUSEHOOKSTRUCT;

Но умственное развитие не позволяет этим воспользоваться. Ну помогите уж с этим хотя бы. Как вытащить эти координаты???

Camedia (2003-08-30 19:29:00) [4]

Help, народ! LoWord и HiWord возвращают несоответсвующие действительности значения!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »