Мышиная охота

← →
Axis_of_Evil (2002-10-03 16:08) [0]

Я может дундук, но, Мастера, помогите, опишите, как на WinAPI
отловить Click по рабочему столу, если форма НЕактивна.

Пробовал SetWindowsHookEx (как-то так она называется) для
клавиатуры

////////////////////////////////////////////////////////////////
unit MainUnit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TMainForm = class(TForm)
KeyList: TListBox;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
MainForm: TMainForm;

HookHandle: hHook;

function Key_Hook(Code: integer; wParam: word; lParam: Longint): Longint;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
HookHandle := SetWindowsHookEx(wh_Keyboard, @Key_Hook, hInstance, 0);
end;

function Key_Hook(Code: integer; wParam: word; lParam: Longint): Longint;
var
H: hwnd;
begin

if ((Code > 0) and (wParam = VK_LEFT)) then
begin
MainForm.Height := MainForm.Height + 2;
MainForm.Width := MainForm.Width + 2;
end;

MainForm.KeyList.Items.Add(IntToStr(wParam))

end;
end.
////////////////////////////////////////////////////////////////

Что неправильно?

← →
Song (2002-10-03 16:13) [1]

Дак Вы хотите отловить клик мыши, а ловите клаву.. Как же так?

← →
k (2002-10-03 16:23) [2]

прежде всего неправильно то, что ф-ция Key_Hook должна сидеть в длл
см. статью о хуках на этом сайте

← →
Best Before 2024 (2002-10-03 16:27) [3]

Мышиная охота Найти похожие ветки