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');
poczytaj o hookach jest pewnie w FAQ albo artykułach i poszukaj na forum
ale plis daj mi kodzik a nie zebym poczytal bo czytalem i nie wiem jak zrobic plis
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 :) ).
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.
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
Cos mi sie nie udaje plis podajcie kodzik.