Przechwytywanie myszki!!

0

Jak przechwycic klikniecie prawego guzika myszki na pulpicie. Chodzi mi o to ze jak nacisne prawy przycisk myszki to zamiast podrecznego meni wyskoczy showmessage('prawy przycisk niedziala');

0

poczytaj o hookach jest pewnie w FAQ albo artykułach i poszukaj na forum

0

ale plis daj mi kodzik a nie zebym poczytal bo czytalem i nie wiem jak zrobic plis

0

Cześć!
W FAQ jest napisane o Hook'ach :) (to jest punkt 181 :P ). Zmień tam tylko parametr wm_KeyDown na wm_LBUTTONDOWN (komunikat naciśnięcia lewego przycisku myszy :) ).

0

co mam w tym kodzie zle??
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
end;

var
Form1: TForm1;
MainHook : HHOOK;

implementation

{$R *.dfm}
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
var
Buffer: TEventMsg;
begin
result := 0 ;
Buffer := PEventMsg(lParam)^;
if Buffer.message = wm_LBUTTONDOWN then
Form1.Memo1.Text := Form1.Memo1.Text + chr(Buffer.paraml);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MainHook := SetWindowsHookEx(wh_JournalRecord, KeyHook, HInstance, 0);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(MainHook);
end;

end.

0

co mam w tym kodzie zle??
unit Unit1;

interface
....

masz to zle ze zamiast samemu ruszyc glowa i znalezc ew. blad proszisz ludzi by znalezli za ciebie..
nie oczekuj ze wszystko podadza ci na zlotym talerzu

0

Cos mi sie nie udaje plis podajcie kodzik.

1 użytkowników online, w tym zalogowanych: 0, gości: 1