[friz]

Пишу запоминальщик действий и мне необходимо определить координаты клика мыши вне формы программы. т.е. ту позицию куда кликнул пользователь.
Как такое реализовать максимально просто?

[movnet]

Код:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)
   Memo1: TMemo;
   procedure FormCreate(Sender: TObject);
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var
MouseHook: HHOOK;

function LowLevelMouseProc(nCode: Integer; WParam: WPARAM; LParam: LPARAM): LRESULT; stdcall;
begin
Result := CallNextHookEx(MouseHook, nCode, WParam, LParam);
case WParam of
   WM_LBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась левой кнопкой.');
   WM_LBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась левой кнопкой.');
   WM_LBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась левой кнопкой.');
   WM_RBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась правой кнопкой.');
   WM_RBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась правой кнопкой.');
   WM_RBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась правой кнопкой.');
   WM_MBUTTONDOWN: Form1.Memo1.Lines.Add('Мыша вдавилась средней кнопкой.');
   WM_MBUTTONUP: Form1.Memo1.Lines.Add('Мыша отдавилась средней кнопкой.');
   WM_MBUTTONDBLCLK: Form1.Memo1.Lines.Add('Мыша дважды клацнулась средней кнопкой.');
   WM_MOUSEMOVE: Form1.Memo1.Lines.Add('Мыша побежала.');
   WM_MOUSEWHEEL: Form1.Memo1.Lines.Add('Мыша тащиться.');
else
   Form1.Memo1.Lines.Add('Мыша сошла с ума, купите новую мышу.');
end;

end;

 

 

procedure TForm1.FormCreate(Sender: TObject);
const
 WH_MOUSE_LL = 14;
begin
MouseHook := SetWindowsHookEx(WH_MOUSE_LL, @LowLevelMouseProc, HInstance, 0);
end;

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnhookWindowsHookEx(MouseHook);
end;
end.

Тож самое и на клавиатуру, код хука - Цифра 13 Соответственно принимай уже мессаги от клавиатуры...

[movnet]

Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.

Код:

procedure Form1.Button1Click(Sender: TObject);
var
 foo: TPoint;
begin
 GetCursorPos(foo);
 ShowMessage('(' + IntToStr(foo.X) + ' ,' + IntToStr(foo.Y) + ')');
end;

[friz]

я уже сделал, правда чуть другим способом. но все равно спасибо!
p.s. сохраню, пусть валяется в архиве