• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 25 رای - 2.92 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: Hook كردن ماوس
حالت موضوعی
#1
کد پی‌اچ‌پی:
type

TMessageList 
= class(TList);


var

Form1TForm1;

MessageListTMessageList nil;

MessageBufferTEventMsg;

HookHandlehHook 0;

MessageCountWord 0;

GoBoolean False;

Pan: array[0..5of TPanel;


implementation


{$R *.DFM}


procedure Stop;

begin

if Go then UnHookWindowsHookEx(HookHandle);

MessageList.Free;

Go:=False;

end;


function 
FBack(CodeIntegerwParamlParamLongInt): LongIntstdcall;

begin

Inc
(MessageCount);

Randomize;

if 
MessageCount>=MessageList.Count then Stop

else MessageBuffer:=TEventMsg(MessageList.Items[MessageCount]^);

Result:=CallNextHookEx(HookHandleCodewParamlParam);

Pan[MessageCount].Color:=RGB(Random(255), Random(255), Random(255))

end;


procedure SetHook;

begin

MessageBuffer
:=TEventMsg(MessageList.Items[0]^);

MessageCount:=0;

HookHandle:=SetWindowsHookEx(WH_MOUSEFBackhInstance0);

Go:=True;

end;


procedure MakeMessage(MesCardinal);

var

MyEventPEventMsg;

begin

New(MyEvent);

with MyEvent^ do

begin

message
:=Mes;

ParamL:=50;

ParamH:=50;

Time:=GetTickCount;

hWnd:=Form1.Handle;

end;

MessageList.Add(MyEvent);

end;


function 
SendMouseInteger;

begin

try

MessageList:=TMessageList.Create;

MakeMessage(WM_RBUTTONDOWN);

MakeMessage(WM_RBUTTONUP);

SetHook// set hook

except

end
;

Result:=0;

end;


procedure TForm1.Button1Click(SenderTObject);

begin

Pan
[1]:=Panel1;

Pan[2]:=Panel2;

SendMouse;

end
 
پاسخ
#2
درود

سپاس از کدتون

اگر امکان داره تو تگ کد بزارید زیباتر و خوانا تر میشه
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  source code hook (Delphi) Amin_Mansouri 0 2,405 05-22-2011، 10:34 AM
آخرین ارسال: Amin_Mansouri

پرش به انجمن:


Browsing: 1 مهمان